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Abstract 


A  type-theoretic  definition  of  a  variant  of  the  Standard  ML  (Revised  f996) 
programming  language  is  given.  The  dehnition  consists  of  a  syntax-directed 
translation  of  SML96  programs  into  a  typed  intermediate  language.  The 
intermediate  language  is  an  explicitly-typed  A-calculus  with  product,  sum, 
recursive,  and  module  types.  The  translation  performs  type  reconstruction, 
handles  identiher  scope  resolution,  enforces  static  well-formedness  conditions, 
and  expands  high-level  constructs  (such  as  pattern  matching  and  signature 
matching)  into  uses  of  the  more  rudimentary  mechanisms  of  the  intermediate 
language. 

This  document  presents  work  in  progress  and  is  being  distributed  for  the 
purpose  of  obtaining  feedback.  As  such,  the  translation  does  not  completely 
match  the  dehnition  of  SML96,  which  is  itself  still  undergoing  change. 


Keywords:  Standard  ML,  type  theory,  semantics,  programming  lan¬ 
guage  design,  compilation,  translation,  elaboration,  static  semantics,  dy¬ 
namic  semantics 
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1  Overview 


This  document  consists  of  a  type-theoretic  account  of  a  variant  of  Stan¬ 
dard  ML  (Revised  f996).  The  approach  taken  here  is  to  dehne  the  static 
and  dynamic  semantics  of  SML96  by  a  syntax-directed  translation  of  the 
SML96  abstract  syntax  (the  external  language  (EL))  into  an  explicitly-typed 
A-calculus  (the  internal  language  (ILJ).  The  translation  performs  type  infer¬ 
ence,  resolves  the  scopes  of  identihers,  enforces  static  well-formedness  con¬ 
ditions,  and  renders  the  high-level  constructs  of  the  EL  as  uses  of  the  more 
rudimentary  mechanisms  of  the  IL.  The  dynamic  semantics  of  the  EL  is  de- 
hned  by  composition  of  this  translation  with  the  dynamic  semantics  of  the 
IL  itself.  This  is  in  contrast  to  the  approach  used  in  The  Definition  of  Stan¬ 
dard  ML  [MTH90],  which  gives  a  dynamic  semantics  directly  to  the  “raw” 
EL  independently  of  the  static  semantics. 

The  advantages  of  this  approach  are  several: 

1.  The  internal  language  may  be  shared  among  many  different  language 
dehnitions  given  in  the  style  presented  here.  In  particular,  we  envision 
the  possibility  of  using  the  IL  given  here  for  the  dehnitions  of  Scheme 
and  Caml  Special  Light,  perhaps  with  some  relatively  minor  modihca- 
tions. 

2.  The  translation  given  here  may  be  viewed  as  a  reference  implementa¬ 
tion  of  a  front-end  for  an  SML96  compiler.  In  particular  we  envision 
using  this  translation  as  a  guide  to  the  extension  of  the  TIL/ML  com¬ 
piler  [HM95,  Mor95,  Tar96,  TMC'''96]  to  SML96.  Compilers  for  other 
languages  dehned  by  interpretation  into  the  IL  can  share  the  back  end 
of  the  TIL/ML  compiler;  only  a  front-end  need  be  written  for  each 
specihc  language. 

3.  By  dehning  the  language  in  terms  of  a  translation  into  an  intermediate 
language,  we  replace  the  ad  hoc  static  semantic  objects  of  The  Defini¬ 
tion  of  Standard  ML  by  terms  of  a  well-dehned  typed  A-calculus.  This 
clarihes  a  number  of  issues  in  the  design  of  SML96.  Eor  example,  the 
notion  of  “type  generativity”  is  replaced  by  the  abstraction  mechanisms 
associated  with  the  formalism  of  existential  types. 

There  are  some  disadvantages  as  well: 
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1.  The  translation  of  datatype  declarations  is  extremely  complex.  In  our 
view  this  is  a  direct  reflection  of  the  intrinsic  complexity  of  a  mecha¬ 
nism  that  introduces  several  mutually  recursive  abstract  types,  each  a 
multinary  sum  of  multinary  product  types. 

2.  A  rigorous  dehnition  of  the  IL  must  be  given  in  addition  to  the  trans¬ 
lation  rules  from  the  EL  to  the  IL.  This  is  mitigated  somewhat  by  the 
possibility  of  sharing  the  IL  among  several  language  dehnitions.  The 
burden  of  dehning  the  IL  is  shared  to  some  extent  by  The  Definition^ 
in  the  guise  of  the  set  of  “static  semantic  objects”  and  their  associated 
operations. 


The  type-theoretic  dehnition  of  SML96  is  divided  into  three  main  parts. 

Type  Structure  of  the  Internal  Language.  The  internal  language  is 
an  explicitly-typed  A-calculus,  with  a  second-class  modules  system. 

The  core  of  the  internal  language  is  based  on  the  XML  and  cal¬ 
culi  [HM93,  HMM90].  The  constructors  of  kind  0  (where  0  is  the  kind 
of  types)  include  partial  and  total  function  types,  record  types,  sum  types, 
reference  types,  recursive  types,  and  a  single  extensible  sum.  Additionally, 
the  constructors  are  extended  with  (restricted)  tuples  of  constructors  and 
functions  at  the  constructor  level.  Note  that  there  are  no  polymorphic  types 
(polytypes)  in  our  system. 

The  modules  system  is  based  on  the  translucent  sum  or  manifest  type 
modules  calculi  [HL94,  Ler94].  In  addition  to  translucent  signatures,  we  have 
total  and  partial  functor  signatures.  Our  subtyping  relation  on  signatures 
involves  only  forgetting  of  type  dehnitions  and  totality,  and  not  dropping 
components.  This  means  that  subtyping  has  no  run-time  ehect. 

The  two  levels  are  connected  by  the  ability  to  dehne  modules  local  to  a 
core  expression. 

Dynamic  Semantics  of  the  Internal  Language.  The  dynamic  seman¬ 
tics  is  based  on  a  continuation  represented  as  a  “stack”  of  frames,  which  in 
total  correspond  to  an  evaluation  context  in  a  contextual  semantics  [WF91]. 
The  handling  of  references  and  exceptions  is  similar  to  Harper’s  account  of 
polymorphic  references  [Har93].  We  expect  this  to  be  much  more  amenable 
to  direct  mechanization  than  the  style  of  the  Definition^  since  there  are  no 
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implicit  rules  governing  the  treatment  of  exceptions.  In  fact,  the  semantics 
comes  very  close  to  dehning  an  abstract  machine. 

Elaboration.  The  translation  is  dehned  by  a  series  of  translation  judg¬ 
ments  of  the  general  form 

r  h  EL-phrase  ^  IL-phrase  :  IL-classifier 

where  V  is  an  internal-language  context  extended  with  information  mapping 
EL  identihers  to  IL  variables.  If  L"  is  the  IL  context  underlying  L  and  the 
above  translation  judgment  holds,  we  expect  the  IL  typing  judgment 

L“  h  IL-phrase  :  IL-classifier 

also  to  hold. 
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Major  Differences  from  SML96 

This  section  refers  only  to  the  draft  of  Standard  ML  ’96  as  of  the  time  of 
this  report.  Many  aspects  of  SML96  are  still  under  consideration,  and  may 
change  substantially! 


2.1  Equality 

This  translation  does  not  currently  handle  equality  types,  the  eqtype  signa¬ 
ture  specihcation,  or  polymorphic  equality.  We  may  relax  this  restriction  (in 
a  later  draft  of  this  translation)  to  allow  eqtype  declarations  and  the  struc¬ 
tural  equality  derivable  from  these  and  known  types.  We  do  not  intend  to 
include  equality  polymorphism  ('  'a),  which  signihcantly  complicates  both 
the  semantics  and  the  implementation  of  the  language. 

2.2  Value  Restriction 

The  value  restriction  used  in  this  translation  is  different  than  that  currently 
specihed  in  SML96. 

•  We  treat 


val  (rec)  pat^  =  expr^  and  .  .  .  and  pat^  =  expr^ 
as  a  derived  form  for 

val  (rec)  (pat-^ ,  .  .  .  ,pat^)  =  {exp^ ,  ■  ■  ■  ,  exp^). 

If  any  of  exp^, .  .  . ,  exp,^  is  not  a  value,  no  variables  in  the  entire  bind¬ 
ing  will  be  generalized.  This  differs  from  SSML  in  which  the  decision 
whether  to  generalize  is  made  on  a  pattern-by-pattern  basis. 

•  If  V  is  a  value,  then  val  h:  :t  =  v  is  equivalent  to  val  h  =  hd  v  and 
val  t  =  tl  V.  Since  in  the  latter  cases  h  and  t  will  not  be  polymorphic 
(hd  and  tl  may  raise  exceptions!),  h  and  t  should  not  be  polymorphic 
in  the  former  case. 

The  translation  currently  allows  variables  in  a  val  binding  to  be  gener¬ 
alized  if  the  translation  of  the  binding  results  in  a  “valuable”  structure. 
At  the  external  language  level,  this  is  equivalent  to  the  right-hand  side 
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being  a  value,  and  no  constants  or  constructors  appearing  in  the  pat¬ 
tern,  except  for  the  constructor  in  a  single-constructor  datatype.  (That 
is,  the  pattern  must  be  irrefutable.)  Note  that  tuple-patterns  pose  no 
problem,  since  projection  is  a  total  function. 

This  matches  the  notion  of  “polymorphism  as  substitution,”  in  which 
let  val  id=exp  in  exp'  end  is  considered  equivalent  to  [exp / id]  exp' 
when  id  is  polymorphic. 

•  We  distinguish  constructors  from  user-dehned  functions  by  their  types: 
constructors  can  have  total  function  types  and  fn  expressions  should 
express  partial  types.  However,  the  translation  can  sometimes  notice 
that  certain  user  variables  and  functions  are  total,  and  assigns  them 
total  types  in  the  translated  code.  For  example. 


val  X  =  op  :  : 

val  y  =  X  (nil,  nil) 


can  give  x  the  same  total  type  as  the  :  :  constructor,  so  y  can  be 
polymorphic  (since  a  total  function  applied  to  a  value  is  valuable  and 
hence  generalizable.) 

Thus  we  allow  certain  (sound)  programs  than  SML96  would  reject;  if 
we  added  the  ability  to  express  total  types  in  the  EL,  this  might  even 
be  acceptable.  Alternatively,  we  will  have  to  modify  the  translation  so 
that  it  “forgets”  that  certain  values  are  total  functions. 


2.3  Type  Sharing  and  Datatypes 

The  translation  allows  certain  unsatishable  constraints  to  appear  in  EL  sig¬ 
natures.  In  particular,  a  type  sharing  constraint  equating  two  “obviously 
different”  datatypes  (datatypes  with  different  sets  of  constructors)  will  not 
be  flagged.  The  specihcation  will  elaborate,  but  there  will  be  no  structures 
in  the  range  of  the  translation  that  match  the  specihcation. 

In  the  language  of  the  Definition^  we  are  relaxing  the  consistency  require¬ 
ment. 
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2.4  Local  and  Higher-Order  Functors 

Our  external  language  permits  structure  and  functor  declarations  within  a 
let  or  local  declarations — a  reflection  of  the  fact  that  the  internal  language 
has  local  modules. 

2.5  Top-level 

We  are  interested  in  batch  compilers,  which  may  compile  top-level  declara¬ 
tions  separately.  Therefore,  we  require  that: 

1.  Only  structures,  functors,  and  signatures  may  be  dehned  at  top-level. 

2.  All  identihers  bound  at  the  top  level  must  be  distinct  (taking  into  ac¬ 
count  the  fact  that  structure,  functor,  and  signature  identiher  names¬ 
paces  are  always  considered  disjoint)  so  that  a  linker  can  resolve  refer¬ 
ences  correctly. 

2.6  Principality 

The  translation  makes  no  requirement  that  top-level  declarations,  or  even 
entire  compilation  units,  have  principal  environments.  A  principality  re¬ 
quirement  may  be  useful  for  efficient  implementation,  and  implementations 
may  choose  to  make  such  restrictions,  but  this  is  purely  the  decision  of  the 
implementor.  For  example,  an  implementation  could  instead  delay  some 
typechecking  and/or  compiling  until  the  entire  program  becomes  known. 

2.7  Overloading 

This  translation  does  not  consider  overloaded  operators.  It  may  be  sufficient 
to  add  an  “overloaded”  type  and  add  a  rule  to  the  translation  of  expressions 
such  that  identihers  with  overloaded  types  are  coerced  to  a  non-overloaded 
type  whenever  it  appears.  (This  would  be  similar  to  the  current  rule  that 
instantiates  polymorphic  identihers  to  monomorphic  expressions  wherever 
they  appear.) 
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3  Internal  Language  Abstract  Syntax 

3.1  Core  Expressions 

path  ::=  var  \  var.lbls 
Ms  ::=  lbl\  Ibl.lbls 

exp  ::=  scon  (constants) 

I  var  (variables) 


I  loc 
I  name 
I  exp  exp' 

I  fix/6n(/s  in  car  end 
I  {rbnds} 

I  exp^lbl 

I  handle  ea;p  with  ea;p' 

I  raise  exp 
I  catch  exp  with  exp' 

I  fail 

I  let  car=mo(/ in  ea;p  end 
I  new_stamp  [con] 

\  ret  exp 
I  get  exp 
I  set  exp 
I  roll™"  exp 
I  unroll™*^  exp 

I  irijr” 

I  Proj,  exp 

I  ^.ggiiame 

I  untag’^'*’"®  exp 
I  case'^'”^  (ea;pi,  •  •  • ,  exp^)  of  exp  eni 
I  mod.lbl 

rbnds  ::=  •  |  rbnds^  rbnd 

rbnd  ::=  lbl>exp 

fbnds  ::=  •  \fbnds^fbnd 

fbnd  ::=  var'=[var:con)\-P-exp 

We  use  “A  var '.con. exp”  as  an  abbreviation  for 
where  var'  does  not  occur  free  in  exp. 


(memory  locations) 

(tag  names  for  the  Any  type) 
(application) 

(projection  from  fixpoint) 

(record  of  values) 

(projection  from  a  record) 

(handle  exceptions  at  type  Any) 

(raise  exceptions  at  type  Any) 

(handle  exceptions  at  type  Unit) 

(raise  exceptions  at  type  Any) 

(local  module  dehnition) 

(new  constructor/deconstructor  pair) 
(allocate  new  ref  cell) 

(dereference) 

(assignment) 

(type  coercion  into  a  recursive  type) 
(type  coercion  out  of  a  recursive  type) 
(injection  into  sum  type) 

(projection  from  sum  type) 

(injection  into  Any  type) 

(projection  from  Any  type) 

(case  over  sum  type) 

(projection  from  module) 


“fix  var'={var:con)i-P-exp  in  var'  end” 
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3.2  Core  Constructors  and 

con  ::=  var 

I  Int  I  Float  I  String  |  Char  |  • 

I  Any 

I  con  Ref 
I  con  Name 
I  con^con' 

I  con^con' 

I  con  [con'] 

I  /U*  [con] 

I  Unroll  [con] 

I  {rdecs} 

I  A (vari,  •  •  •  ,  varn)-con  [n 
I  E (coni,  •  •  •  ,  conn) 

I  (coni ,  •  •  •  ,  conn) 

I  con#k  [k  >  1) 

I  mod.lbl 

rdecs  ::=  •  |  rdecs,  rdec 

rdec  ::=  lbl>con 

knd  ::=  0”  (n  >  0) 

I  0™  ^  0*^  (m,n  >  0) 

We  refer  to  the  constructor  {}  as  Unit. 


Kinds 

(type  variables) 

(base  types) 

(extensible  sum  type) 
(reference  type) 

(tag-name  type) 

(partial  function  type) 
(total  function  type) 
(application) 

(projection  from  fixpoint) 
(unroll  recursive  type) 
(record  type) 

0)  (constructor-level  function) 
(sum  type) 

(tuple  formation) 

(tuple  projection) 

(module  projection) 


(tuples  of  types) 
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3.3  Module  Expressions 


mod  : 

:=  var 

[sbnds] 

(structure) 

[Xvav.sig  .mod) 

(functor) 

mod  mod' 

(functor  application) 

mod.lbl 

(projection  from  module) 

mod'.sig 

(forgetting  type  abbreviations) 

sbnds  : 

.sbnds,. sbnd 

(structure  bindings) 

sbnd  : 

:=  lbl\>bnd 

bnd  : 

:=  var  =  exp 

var=mod 

var=con 

For  readability,  we  often  elide  the  internal  names  (var’s)  when  writing  out 
sbnds  (and  sdecs).  In  all  cases  it  should  be  immediately  obvious  how  to 
consistently  restore  variables  not  appearing  anywhere  in  the  inference  rule. 
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3.4  Module  Signatures 


sig  : 

:=  [sdecs] 

[[var  :  sig)^sig') 

(partial  functor  signature) 

[[var  :  sig)^sig') 

(total  functor  signature) 

sdecs  : 

sdecs,  sdec 

(structure  declarations) 

sdec  : 

:=  lbl\>dec 

decs  : 

decs,  dec 

(declaration  lists) 

dec  : 

:=  var-.con 

var:sig 

var-.knd 

(opaque  type  declaration) 

var:knd=con 

(type  abbreviation) 

loc'.con 

(typed  locations) 

name:con 

(typed  exception  names) 

We  use  [stg^stg')  and  [stg^stg')  to  abbreviate  [[var  :  stg)^stg')  and 
[[var  :  stg)^stg')  respectively,  where  var  is  not  free  in  sig' . 
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3.5  Top-level 

tdecs,  tdec 
lbl\>var\sig 
lbl\>var\  Sig  =sig 

tbnds  ::=  • 

I  tbnds  ^  tbnd 
tbnd  ::=  lbl>var=mod 
I  lbl\>var=sig 


tdecs  ::  = 
tdec  ::  = 
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3.6  Translation  Context 


r  ::=  • 

I  r,  lbl>var:con 
I  T ^  lbl\>var:knd{=con) 

I  r,  lbl\>var\sig 
I  r,  lbl\>var\  Sig  =sig 

There  is  an  implicit  coercion  of  a  translation  context  (F)  to  a  sequence  of 
declarations  [decs),  induced  by  dropping  all  signature  bindings  and  forgetting 
all  IhVs. 


3.7  Syntactic  Restrictions 

A  constructor  [con)  may  only  contain  at  most  single  total  arrow  (— >),  and  if 
present  it  must  be  at  the  outermost  level. 

3.8  Notation 

•  Many  grammatical  classes  [Ibis,  decs,  rdecs,  rbnds,  sdecs,  sbnds,  tdecs, 
tbnds)  specify  lists  of  elements.  For  each  of  these  classes  we  dehne 
a  binary  append  operation,  written  with  a  comma.  For  example,  we 
dehne 

decs, ■  :=  decs 

decs,  [decs' ,  dec')  :=  [decs,  decs'),  dec' 
with  analogous  dehnitions  for  all  the  other  classes  listed  above. 

•  We  occasionally  use  the  abbreviation 


as  shorthand  for 


phrasci,  ■  ■  ■  ,  phrase^ 


(where  the  phrases  are  comma-separated). 
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3.9  Bindings  and  Scope 

We  define  the  functions  bound(-)  and  dom(-)  for  various  declarations  (and 
lists  thereof): 


Function 

Definition 

bound(dec) 

hound[var:  con) 

=  car 

hound[var:knd) 

=  car 

hound[var:knd=con) 

=  car 

hound[var:sig) 

=  car 

bound(/oc:con) 

=  loc 

bound(  name:  con) 

=  name 

bound(decs) 

bound(deci,  •  •  •  ,  dec„) 

=  {bound(deci),  •  • 

•  ,  bound(dec„)} 

bound(sdecs) 

dom(/6/ii>deci,  •  •  •  ,  lbln>deCn) 

=  {bound(deci),  •  • 

•  ,  bound(dec„)} 

hound[bnd) 

howid{  var=  exp) 

=  var 

bound(  car = con) 

=  var 

bound(car=mod) 

=  var 

hound[sbnds) 

dom(/6/ii>6ndi,  •  •  •  ,  lbln>bndn) 

=  {bound(6ndi),  • 

•  •  ,  bound(6nd„)} 

bound(r) 

bound(sdec,  F) 

=  {bound(sdec)}  U  dom(F) 

hound[lbl\>var:S\g=sig ^  F) 

=  {car}  U  dom(F) 

dom(sdecs) 

dom(/6/ii>deci,  •  •  •  ,  lbln>deCn) 

II 

dom(  rdecs) 

dom(/6/ii>coni,  •  •  •  ,  /6/„i>con„) 

II 

dom(ldec) 

doni[lbl\>var:sig) 

=  Ibl 

doni[lbl\>var:S\g=sig) 

=  Ibl 

dom(ldecs) 

dom(ldeci,  •  •  •  ,  tdeCn) 

=  {dom(tc/eci),  •  •  • 

,  dom(ldec„)} 

dom(r) 

dom(sdec,  F) 

=  {dom(sdec)}  U  dom(F) 

doTa{lbl\>var\S\g=sig ,  F) 

=  {Ibl}  U  dom(F) 
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The  scopes  of  bound  variables  are  given  by  the  following  table: 


Binding  Phrase 

Bound 

Scope 

i\x  finds,  var' ={var\con)\-P- exp ,  finds'  in  var  end 

var' 

entire  phrase 

var 

exp 

let  var=mod  in  exp  end 

var 

exp 

A  (vari,  •  •  •  ,  varfi.con 

vari,  ■  ■  ■  ,  varn 

con 

sbnd,  sbnels 

bound(s6nd) 

sbnds 

{Xvar:sig  .mod) 

var 

mod 

sdec,  sdecs 

bound(sdec) 

sdecs 

{var\.sig^.sig') 

var 

sig' 

{var\.sig^.sig') 

var 

sig' 

tbnd,  tbnds 

hound{tbnd) 

tbnds 

tdec,  tdecs 

bound(tdec) 

tdecs 

sdec,  r 

bound(sdec) 

r 

lbl\>var:S\g=sig ,  T 

var 

r 

We  follow  standard  practice  and  identify  all  phrases  which  differ  only 
with  respect  to  bound  variables,  locations,  and  exception  names.  We  use  the 
notation  {phrase)  to  denote  the  set  of  free  expression  variables  in  phrase^ 
and  FTY (phrase)  to  denote  the  set  of  free  type  variables  in  the  phrase. 
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4 


Static  Semantics:  Typing 


4.1  Introduction 

In  this  section  we  define  the  well-formedness  and  typing  judgments  for  the 
internal  language.  Points  of  interest  include: 

•  There  are  no  “semantic  objects”  in  the  sense  of  the  Definition. 

•  The  rules  are  explicitly  formulated  so  that  a  judgment  holds  only  if  its 
constituents  (declaration  lists,  etc.)  are  well-formed. 

•  There  is  a  mutual  dependency  between  the  typing  judgments  for  (core 
and  module)  expressions  and  the  valuability  judgments  of  Section  5. 

4.2  Notation 

•  Optional  elements  are  enclosed  by  single  brackets  (•  •  •). 
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4.3  Judgment  Forms 

Judgment...  Meaning... 


h  decs  ok 
h  decs  <  decs' 
h  decs  =  decs' 


decs  is  a  valid  declaration  list 

decs  is  a  sub-declaration  list  of  decs' 

decs  and  decs'  are  equivalent  declaration  lists 


decs 

h 

dec  ok 

decs 

h 

dec  <  dec' 

decs 

h 

dec  = 

E  dec' 

decs 

h 

bnd  : 

dec 

decs 

h 

rdecs 

ok 

decs 

h 

rdecs 

=  rdec.s' 

decs 

h 

rbnds 

:  rdecs 

decs 

h 

knd  : 

Kind 

decs 

h 

con  : 

knd 

decs 

h 

con  = 

;  con'  :  knd 

decs 

h 

exp  : 

con 

decs 

h 

sdecs 

ok 

decs 

h 

sdecs 

<  sdec.s' 

decs 

h 

sdecs 

=  sdec.s' 

decs 

h 

.sbnds 

:  sdecs 

decs 

h 

sig  :  Sig 

decs 

h 

.sig  < 

.sig'  :  Sig 

decs 

h 

sig  = 

sig'  :  Sig 

decs 

h 

mod  : 

sig 

decs 

h 

tdecs 

ok 

decs 

h 

tbnds 

:  tdecs 

dec  is  a  valid  declaration 

dec  is  a  sub-declaration  of  dec' 

dec  and  dec'  are  equivalent  declaration  lists 

binding  bnd  has  declaration  dec 

rdecs  is  a  valid  record  declaration  list 

rdecs  and  rdec.s'  are  equivalent  record  declaration  lists 

record  binding  list  rbnds  has  declaration  list  rdecs 

knd  is  a  valid  kind 
con  has  kind  knd 

con  and  con'  are  equivalent  constructors  of  kind  knd 

expression  exp  has  type  con 

rdecs  is  a  valid  signature  specihcation  list 
sdecs  is  a  sub-specihcation  list  of  sdec.s' 
sdecs  and  sdec.s'  are  equivalent  specihcation  lists 
function  binding  list  .sbnds  has  declaration  list  sdecs 

sig  is  a  valid  signature 

sig  is  a  sub-signature  of  sig' 

sig  and  sig'  are  equivalent  signatures 

mod  has  signature  sig 

tdecs  is  a  valid  top-level  declaration  list 
top-level  bindings  tbnds  have  declarations  tdecs 
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4.4  Inference  Rules 


h  decs  ok 


h  •  ok 


(1) 


decs  h  dec  ok 
h  decs,  dec  ok 


(2) 


Rules  1  and  2:  Via  the  coercion  of  translation  contexts  into  declaration  lists, 
this  judgment  induces  the  judgment  h  F  ok. 


h  •  < 


h  decs,  dec  <  decs  ,  dec 


h  decs,  dec  =  decs' ,  dec 


h  decs  < 

decs' 

(3) 

/ 

C 

(4) 

h  decs  = 

decs' 

(5) 

/ 

C 

(6) 

decs  h  dec  ok 

decs  h  knd  :  Kind 

var  ^  bound((/ecs) 

(7) 

decs  h 

vav.knd  ok 

decs  h  con  :  knd 

var  ^  bound(decs) 

(8) 

decs  h  var:knd=con  ok 

decs  h  con  :  0 

var  ^  bound(decs) 

(9) 

decs  h 

var-.con  ok 

decs  h  sig  :  Sig  var  ^  bound((/ecs) 
decs  h  vav.sig  ok 


(10) 
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decs  h  con  :  0  loc  ^  bound((/ecs) 
decs  h  loc'.con  Ref  ok 


(11) 


decs  h  con  :  0  name  ^  bound((/ecs) 
decs  h  name-.con  Name  ok 


(12) 


decs  h  dec  <  dec' 


decs  h  con  :  knd 
decs  h  var:knd=con  <  vav.knd 


(13) 


decs  h  sig  <  sig'  :  Sig 
decs  h  vav.sig  <  vav.sig' 


(14) 


decs  h  dec  =  dec 
decs  h  dec  <  dec 


(15) 


decs  h  dec  =  dec^ 


decs  h  knd  :  Kind 

decs  h  vav.knd  =  vav.knd 

(16) 

decs  h  con  =  con'  :  knd 

decs  h  var:knd=con  =  vav.knd=con' 

(17) 

decs  h  con  =  con'  :  0 

decs  h  vav.con  =  vav.con' 

(18) 

decs  h  sz'^  =  sz'^'  :  Sig 
decs  h  vav.sig  =  vav.sig' 

(19) 

decs  h  con  =  con'  :  0 

decs  h  lov.con  =  lov.con' 

(20) 

decs  h  con  =  con'  :  0 

decs  h  name-.con  =  name-.con' 

(21) 
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decs  h  bnd  : 

:  dec 

decs  h  con  :  knd 

decs  h  var=con  :  var\knd 

(22) 

decs  h  con  =  con'  :  knd 

(23) 

decs  h  var=con  :  var\knd=con' 

decs  h  exp  :  con 
decs  h  var=exp  :  var\con 

(24) 

decs  h  mod  :  sig  decs  h  sig'  <  sig  :  Sig 
decs  h  var=mod  :  vav.sig 


decs  h  rdecs  ok 


h  decs  ok 
decs  h  •  ok 

decs  h  rdecs  ok 
decs  h  con  :  0 
Ibl  ^  dom(  r(/ecs) 
decs  h  rdecs ^  lbl>con  ok 


(26) 


(27) 


decs  h  rdecs 


rdecs' 


h  decs  ok 
decs  h  •  =  • 


(28) 


decs  h  rdecs  =  rdecs'  decs  h  con  =  con'  :  0 
decs  h  rdecs ^  lblt>  con  =  rdecs' ^  lbl> con' 


(29) 


decs  h  rdecs,  lbl>con,  lbl'\>con' ,  rdecs'  ok 


decs  \-  rdecs,  lbl> con,  lbl'> con' ,  rdecs'  =  rdecs,  Ibl' > con' ,  lbl> con,  rdecs' 


(30) 
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h  decs  ok 
decs  h  •  :  • 


decs  h  rbnds  :  rdecs 


decs  h  rbnds  :  rdecs  decs  h  exp  :  con 
decs  h  rbnds ^  lbl>exp  :  rdecs ,  lbl\> con 


(31) 

(32) 


n  >  0 

decs  h  0”  :  Kind 
n,  m  >  0 

decs  h  0™  ^  0”  :  Kind 


decs  h  knd  :  Kind 

(33) 

(34) 


c(ec5  h  con  :  knd 


h  decs  ok 

decs  =  decs' ,  var:knd{=con) ,  decs" 

(35) 

decs  h  var  :  knd 

decs  h  Any  :  0 

(36) 

decs  h  con  :  0 

(37) 

decs  h  con  Ref  :  0 

decs  h  con  :  0 

(38) 

decs  h  con  Name  :  0 

decs  h  con  :  0  decs  h  con'  :  0 

(39) 

decs  h  con^con'  :  0 

decs  h  con  :  0  decs  h  con'  :  0 

(40) 

decs  h  con^con'  :  0 

decs  h  rdecs  ok 

(41) 

decs  h  {r(/ecs}  :  0 

(/ecs  h  con  :  0”  ^  0”  1  <  z  <  n 

decs  h  /ij-  [con]  :  0 

(42) 

22 


(43) 


decs  h  con  =  fii  [con']  :  0 


decs  h  Unroll  [con]  :  0 
decs,  vari'.ft, .  . .  ,  vavn-ft  con  :  O’" 


decs  h  A (vari, . .  . ,  vaVn) 

.con  :  0"  ^  O’" 

decs  h  coni  :  0 

decs  h  con„  :  0 

decs  h  E  (coni,  •  •  •  : 

,  conn)  '■  0 

decs  h  coni  :  0 

decs  h  con„  :  0 

decs  h  (coni,  •  •  •  ,  conn)  '■  0" 

decs  h  con  :  con'  ^  con 

decs  h  con  :  knd' 

decs  h  con  [con' 

]  :  knd 

decs  h  mo(/  :  [sr/ecs,  lbl\>var\ 

knd{=con) ,  sdecs'] 

decs  h  mod.lbl 

:  knd 

(44) 

(45) 

(46) 

(47) 

(48) 


decs  h  con  =  con'  :  knd 


decs  h  con  =  con'  :  knd 
decs  =  decs',  var:knd=con' ,  decs" 
decs  h  var  =  con  :  knd 


(49) 


decs  h  mod  :  [lbli\>deci, .  .  . ,  Iblm^deCm,  lbl>var\knd=con' ,  sdecs] 
decs,  deci, .  .  .  ,  dec^  con  =  con'  :  knd 
decs  h  con  :  knd 
decs  h  mod.lbl  =  con  :  knd 


(50) 


Rule  50:  The  projection  must  be  a  valid  constructor  with  respect  to  the 
ambient  context. 


decs  h  coni  =  con2  :  0  decs  h  con'^  =  con'^  :  0 
decs  h  coni^con'i  =  con2^con'2  :  0 

decs  h  coni  =  con2  :  0  decs  h  con'^  =  con'2  :  0 
decs  h  coni^con'i  =  con2^ con'2  •  ^ 

decs  h  con  =  con'  :  0 
decs  h  con  Ref  =  con'  Ref  :  0 


(51) 

(52) 

(53) 
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decs  h  con  =  con'  :  0 
decs  h  con  Name  =  con'  Name  :  0 

decs  h  rdecs  =  rdecs' 
decs  h  {rdecs}  =  {rdecs'}  :  0 

(/ecs  h  con  =  con'  :  0”  ^  0”  (1  <  *  < 

decs  h  /ij-  [con]  =  /ij-  [con']  :  0 

decs  h  con  =  /ij-  [con']  :  0  decs  h  con'  :  0”  ^  0” 
decs  h  Unroll  [con]  =  (con'  [(/ii  [con'],  ■  ■  ■  ^  jin  [con'])])^z  :  0 


(54) 

(55) 

(56) 

(57) 


decs,  vari'.ft, .  . .  ,  varn-ft  con  =  con'  :  0 
decs  h  A  (vari, .  .  .  ,  varn).con  =  A  (vari, .  .  . ,  varn).con'  :  0”  ^  0 


(58) 


decs  h  coni  =  con(  :  0  ...  decs  h  con„  =  con],^  :  0 

decs  h  E  (coni,  •  •  •  ,  conn)  =  S  (con'i,  •  •  •  ,  con'^)  :  0 

decs  h  coni  =  con(  :  0  ...  decs  h  con„  =  con],^  :  0 

decs  h  (coni,  •  •  •  ,  conn)  =  (con'i, '  ' '  ? 


(59) 

(60) 


decs  h  coni  =  con(  :  knd'  ^  knd  decs  h  con2  =  con'2  :  knd' 
decs  h  coni  [cor«2]  =  con'i 


(61) 


decs,  vari'.ft, .  . . ,  varn-kl  h  con  :  O’" 
decs  h  con'  =  (con(, . .  . ,  con'^)  :  0" 

decs  h  (A  (cari, .  .  . ,  varn)-con)  [con']  =  [con'i/cari]  •  •  •  [con(,^/t;ar„]con  :  O’" 

(62) 


decs  h  con  :  0"  ^  O’" 

decs  h  A  (cari, .  .  .  ,  varn)-{con  [(mri, .  . .  ,  t;ar„)])  =  con  :  O’" 

decs  h  con  =  (coni,  •  •  • ,  conn)  :  0"  (1  <  *  < 

decs  h  con^i  =  con^  :  0 

decs  h  con  :  0" 

decs  h  con  =  (con^^^l, .  .  . ,  con^n)  :  0" 


(63) 

(64) 

(65) 
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decs  h  con  :  knd 
decs  h  con  =  con  :  knd 


(66) 


decs  h  con'  =  con  :  knd 
decs  h  con  =  con'  :  knd 


(67) 


decs  h  con  =  con'  :  knd  decs  h  con'  =  con''  :  knd 
decs  h  con  =  con"  :  knd 


(68) 


h  decs  ok 

decs  =  decs',  var:con,  decs" 
decs  h  var  :  con 


decs  h  exp  :  con 


(69) 


h  decs  ok 

decs  =  decs',  loc.con,  decs" 
decs  h  loc  :  con 


(70) 


h  decs  ok 

decs  =  decs',  name:con,  decs" 
decs  h  name  :  con 


(71) 


decs  h  exp  :  con' ^  con  decs  h  exp'  :  con' 

decs  h  exp  exp'  :  con 

decs  h  exp  :  con'^con  decs  h  exp'  :  con' 
decs  h  exp  exp'  :  con 


(72) 

(73) 


decs,  {var'p.coni^con")^_^,  vark'-conk  k  expj,  :  con'^,  (1  <  A;  <  n) 
decs  h  i\x[var'-=[vari:coni)\-P-exp-)'l_^  in  end  :  conk^con'^. 


(74) 


var'^,  ■  ■  ■  ,  var'^  ^  bound((/ecs) 
decs,  vark'-conk  k  expj,  con'^, 

decs  k  i\x{var'^={vari\coni)ep-exp-)'^-i  in  end  :  conk^con'^. 


(75) 


Rule  75:  This  rule  is  actually  overly  restricts  the  functions  that  can  be  given 
total  types,  but  it  suffices. 
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decs  h  rbnds  :  rdecs 
decs  h  {rbnds}  :  {rdecs} 

(76) 

decs  h  exp  :  {rdecs,  lbl>con,  rdecs'} 
decs  h  exp^lbl  :  con 

(77) 

decs  h  ea;p  :  con  decs  h  ea;p'  :  Any^con 

decs  h  handle  ea;p  with  ea;p'  :  con 

(78) 

decs  h  ea;p  :  Any 
decs  h  raise  ea;p  :  con 

(79) 

decs  h  ea;p  :  con  decs  h  ea;p'  :  con 

decs  h  catch  ea;p  with  ea;p'  :  con 

(80) 

decs  h  fail  :  con 

(81) 

decs  h  mod  :  sig  decs,  vav.sig  h  exp  :  con  decs  h  con  :  0 

(82) 

decs  h  let  var=mod  in  ea;p  end  :  con 

Rule  82: 
module. 

The  result  type  may  not  depend  on  abstract  types  from  the  local 

decs  h  new_stamp[con]  :  {mk:con— >Any,  km:Any^con} 

decs  h  exp  :  con 
decs  h  exp  :  con  Ref 

decs  h  exp  :  con  Ref 
decs  h  get  exp  :  con 

decs  h  exp  :  {l\>con  Ref,2i>con} 
decs  h  set  exp  :  {} 

decs  h  con'  =  pi  [con]  :  0 
(/ecs  h  con  :  0”  ^  0”  1  <  z  <  n 

decs  h  ea;p  :  Unroll  [/ij-  [con]] 

decs  h  roll™’^  ea;p  :  pi  [con] 


(83) 

(84) 

(85) 

(86) 

(87) 
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decs  h  con'  =  fii  [con]  :  0 
decs  h  con  :  0”  ^  0”  1  <  z  <  n 

decs  h  ea;p  :  /ij-  [con] 

(/ecs  h  unroll™’^'  exp  :  Unroll  [pi  [con]] 

decs  h  con  =  E  (coni,  •  •  •  ,  conn)  '■  ^ 

1  <  i  <  n  decs  h  exp  :  coni 
decs  h  exp  :  con 

decs  h  exp  :  E  (coni,  •  •  •  ,  conn)  1  <i  <n 
decs  h  projj  exp  :  con 

decs  h  name  :  con  Name  decs  h  ea;p  :  con 
decs  h  ea;p  :  Any 

decs  h  name  :  con  Name  decs  h  ea;p  :  Any 
decs  h  untag’^"’"®  ea;p  :  con 


(88) 

(89) 

(90) 

(91) 

(92) 


decs  h  con  =  E  (coni,  •  •  •  ,  conn)  '■  ^ 
decs  h  exp  :  con 

decs  h  exp^  :  con^con'  .  . .  decs  h  exp^  :  con^con' 
decs  h  case'^'”^  (cxp^^  •  •  •  ,  exp^)  of  exp  end  :  con' 


(93) 


Rule  93:  Note  that  the  case  analysis  does  not  do  any  destructuring  of  the 
sum  value. 


decs  h  mod  :  [lbli\>deci^ .  .  . ,  lblm>deCm^  lbl>var:con' ^  sdecs] 
decs,  deci, .  .  . ,  dec^  con  =  con'  :  0 
decs  h  con  :  0 
decs  h  mod.lbl  :  con 


(94) 


Rule  94:  A  projection  is  only  well-formed  if  the  result  is  typable.  If  mod  is 
valuable,  the  projection  is  always  well-formed. 


decs  h  exp  :  con^con' 
decs  h  exp  :  con^con' 


(9.5) 
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Rule  95:  Since  we  only  allow  a  total  arrow  at  the  outermost  level  of  a  con¬ 
structor,  this  rule  suffices  to  completely  describe  the  “subtyping”  of  con¬ 
structors. 


decs  h  exp  :  con'  decs  h  con  =  con'  :  0 
decs  h  exp  :  con 


(96) 


Rule  96:  We  could  remove  this  non-syntax-directed  rule  by  adding  explicit 
constructor-equivalence  tests  to  many  of  the  the  above  rules. 


h  decs  ok 
decs  h  •  ok 

decs  h  dec  ok 
decs,  dec  h  sdecs  ok 
Ibl  ^  dom(s(/ecs) 
decs  h  lbl\> dec,  sdecs  ok 


decs  h  sdecs  ok 


(97) 


(98) 


decs  h  sdecs  <  sdecs' 

decs  F  •  <  • 

(99) 

dec  h  dec  <  dec'  decs,  dec  h  sdecs  <  sdecs' 

(100) 

decs  \-  lbl\> dec,  sdecs  <  lbl\> dec  ,  sdecs' 

decs  h  sdecs 

=  sdecs' 

decs  h  •  =  • 

(101) 

dec  h  dec  =  dec'  decs,  dec  h  sdecs  =  sdecs' 
decs  \-  lbl\> dec,  sdecs  =  lbl\> dec  ,  sdecs' 


(102) 


decs  h  sdecs,  lbl>dec,  lbl'\>dec' ,  sdecs'  ok 
bound((/ec')  fl  (FV(dec)  U  FTV(dec))  =  0 
bound(dec)  fl  (FV(dec')  U  FTV(dec')) 

decs  h  sdecs,  Ibl t> dec,  Ibl' t> dec  ,  sdecs'  =  sdecs,  Ibl' t> dec  ,  Ibl t> dec,  sdecs' 

(103) 
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decs  h  sbnds  :  sdecs 


decs  h  •  :  • 


(104) 


decs  h  bnd  :  dec  decs,  dec  h  sbnds  :  sdecs 
decs  \-  lbl\>bnd ,  sbnds  :  lbl\> dec,  sdecs 


(105) 


decs  h  :  Sig 

decs  h  s(/ecs  ok 
decs  h  [s(/ecs]  :  Sig 

(106) 

decs,  vav.sig  h  :  Sig 

decs  h  [vav.sig^ sig')  :  Sig 

(107) 

decs,  vav.sig  h  :  Sig 

decs  h  [vav.sig^sig')  :  Sig 

(108) 

decs  h  sig  <  sig'  :  Sig 


decs  h  sdecs  <  sdecs' 
decs  h  [sdecs]  <  [sdecs]  :  Sig 


(109) 


decs  h  sig2  <  :  Sig  decs,  var\sig2  sig'^  <  sig'^  :  Sig 

decs  h  <  [var:sig2^sig'2)  :  Sig 


(110) 


decs  h  sig2  <  :  Sig  decs,  var\sig2  sig'^  <  52^2  •  Sig 

decs  h  (uarisz^^— <  [var:sig2^sig'2)  :  Sig 


(111) 


decs  h  sig2  <  :  Sig  decs,  var\sig2  sig'^  <  52^2  •  Sig 

decs  h  (uarisz^^— <  [var:sig2^sig'2)  :  Sig 


(112) 
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decs  h  sig  =  sig'  :  Sig 


decs  h  sdecs  =  sdecs' 
decs  h  [sdecs]  =  [sdecs]  :  Sig 


(113) 


decs  h  sig^  =  sig2  '■  Sig  decs,  var\sig^  h  sig[  =  sig'2  :  Sig 
decs  h  [var:sigi^sig[)  =  [var:sig2^sig2)  :  Sig 


(114) 


decs  h  =  sig2  '■  Sig  decs,  var\sig^  h  =  sig2  '■  Sig 
decs  h  [var:sig^^sig[)  =  [var:sig2^sig2)  :  Sig 


(115) 


decs  h  mod  :  sig 


h  decs  ok 

decs  =  decs' ,  vav.sig,  decs" 
decs  h  var  :  sig 

(116) 

decs  h  sbnds  :  sdecs 
decs  h  [sbnds]  :  [sdecs] 

(117) 

decs,  vav.sig  h  mod  :  .sig' 
decs  h  (Xvav.sig.mod)  :  [vav.sig^sig') 

(118) 

decs,  vav.sig  h  mod  1  sig' 
decs  h  [Xvav.sig .mod)  :  [vav.sig^sig') 

(119) 

decs  h  mod  :  (sig'^sig)  decs  h  mod'  :  .sig' 

decs  h  mod  mod'  :  .sig 

(120) 

Rule  120:  Only  functors  with  non-dependent  types  may  be  applied.  Depen¬ 
dencies  can  be  eliminated  by  uses  of  the  subtyping  and  equivalence  rules.  If 
the  argument  is  valuable,  dependencies  can  always  be  eliminated. 


decs  h  mod  :  [lbli\>deci, .  .  . ,  Iblm^deCm,  lbl\>var\sig' ,  sdecs] 
decs,  deci, .  .  .  ,  dec^  sig  =  sig'  :  Sig 
decs  h  sig  :  Sig 
decs  h  mod.lbl  :  sig 


(121) 
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Rule  121:  A  projection  is  only  well-formed  if  the  result  can  be  given  a  sig¬ 
nature  in  the  ambient  context.  If  mod  is  valuable,  the  projection  is  always 
well-formed. 


decs  h  mod  :  sig 
decs  h  mod'.sig  :  sig 


(122) 


Rule  122:  Ascription  of  a  signature  to  a  module  can  permanently  forget  type 
abbreviations. 


decs  h  mod  I  [sdecs^  lbl>var:knd ^  sdecs'] 
decs  h  mod  :  [sdecs,  lbl>var:knd=modJbl,  sdecs'] 


(123) 


Rule  123:  The  “self”  rule.  If  mod. Ibis  specihes  a  type  and  mod  has  a  well- 
dehned  value  (is  valuable)  then  mod. Ibis  =  mod. Ibis;  we  add  this  fact  to  the 
signature. 


decs  h  mod  I  [sdecs,  lbl\>var:.sig ,  .sdec.s']  decs  h  mod.lbl  :  sig' 
decs  h  mod  :  [sdecs,  lbl>var:sig' ,  sdecs'] 


(124) 


Rule  124:  Allows  the  “self”  rule  to  be  applied  to  substructures. 


decs  h  mod  :  sig'  decs  h  sig'  <  sig  :  Sig 
decs  h  mod  :  sig 


(12.5) 


h  decs  ok 
decs  h  •  ok 


decs  h  tdecs  ok 


(126) 


decs  h  sig  :  Sig  decs,  vav.sig  h  tdecs  ok  Ibl  ^  doni[tdec.s) 
decs  h  lbl\>var\.sig ,  tdecs  ok 


(127) 


decs  h  sig  :  Sig  decs  h  tdecs  ok  Ibl  ^  doni[tdec.s) 
decs  h  lbl\>var\  Sig  =sig,  tdecs  ok 


(128) 
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decs  h  ok 
decs  h  •  :  • 


decs  h  tbnds  :  tdecs 


(129) 


decs  h  mod  :  sig  decs,  vav.sig  h  tbnds  :  tdecs 
decs  \-  lbl>var=mod,  tbnds  :  lbl\>var\sig ,  tdecs 


(130) 


decs  h  sig  =  sig'  :  Sig 

decs  h  lbl>var 


decs  h  tbnds  :  tdecs  var  ^  bound((/ecs) 
sig,  tbnds  :  lbl\>var:S\g=sig' ,  tdecs 

(131) 
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5  Static  Semantics:  Valuability 

The  set  of  valuable  expressions  is  a  class  of  expression  which  evaluate  to  a 
value  without  side-effects,  referencing  the  store,  or  raising  exceptions.  Simi¬ 
larly,  valuable  modules  are  modules  which  evaluate  without  side-effects,  ref¬ 
erencing  the  store,  or  raising  exceptions.  The  purpose  of  distinguishing  total 
and  partial  functions,  as  well  as  total  and  partial  functors,  is  to  specify  which 
function/functor  applications  are  valuable. 

In  the  translation,  only  EL  expressions  whose  translation  is  valuable  will 
be  polymorphically  generalized.  This  means  that  general  function  applica¬ 
tions  will  not  be  generalized,  but  constructor  applications  may  be  (since 
constructors  have  total  arrows  while  general  functions  have  partial  arrows). 


5.1  Judgment  Forms 

Judgment...  Meaning... 


decs  h  exp  I  con 
decs  h  mod  I  sig 

decs  h  exp  I 
decs  h  mod  I 


exp  is  a  valuable  expression  of  type  con 
mod  is  a  valuable  module  with  signature  sig 

exp  is  a  valuable  expression 
mod  is  a  valuable  module 
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5.2  Syntactic  Values 

We  view  each  class  of  syntactic  values  (clasSy)  as  subsets  of  the  corresponding 
class  in  the  abstract  syntax  (class). 


expy  : 

:=  scon 

{rbncLs^} 

fix/6nds  in  car  end 

inj™*^  exp^ 

^.ggiiame 

rbndsy  : 

rbndsy,  rbnd^ 

rbnd^  : 

> 

A 

II 

mody  : 

:=  [sbndsy] 

(Xvav.sig  .mod) 

bndy  : 

:=  var=exp^ 
var=mod^ 

var=con 

sbndsy  : 

sbndsy^sbndy 

sbndy  : 

:=  lbl\>bndy 

val  : 

:  =  expy 
mody 

con 

5.3  Inference  Rules 


decs  h  exp  _ 


decs  h  exp^  ], 

(132) 

decs  h  mod 
decs  h  mod.lbl  1 

(133) 

decs  h  exp^  1  con' ^  con  decs  h  exp 2  1 

decs  h  exp^  exp  2  i 

(134) 
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(135) 


decs  h  exp  I  I  ■  ■  ■  decs  h  exp.^^  I 
decs  h  {lbli>exp^,  •  •  •  ,  lbln>exp^}  I 

decs  h  mod  I  sig  decs,  vav.sig  h  exp 
decs  h  let  var=mod  in  exp  end  I 

decs  h  exp  I 
decs  h  roll™’^  exp  I 

decs  h  exp  I 
decs  h  unroll™’^  exp  I 

decs  h  exp  I  E  (con) 
decs  h  proj^  exp  I 

Rule  139:  Projection  from  a  single-element  sum  type  is  total. 


(136) 

(137) 

(138) 

(139) 


decs  h  sbnds 


decs  h  •  I 

decs  h  exp  I  con  decs,  var:consbnds  hj, 
decs  h  lbl\>  var=  exp ,  sbnds 

decs,  var:knd{=con)  h  sbnds  I 
decs  h  lbl\>var=knd{= con),  sbnds  I 

decs  h  mod  I  sig  decs,  vav.sig  h  sbnds  I 
decs  h  lbl\>var=mod,  sbnds  I 


(140) 

(141) 

(142) 

(143) 


decs  h  [sbnds]  I 


decs  h  mod  ^ 
(144) 


decs  h  var  I 

decs  h  mod  ],  [sig'^sig)  decs  h  mod' 
decs  h  mod  mod'  ], 

decs  h  mod  I 
decs  h  mod.lbl  I 


(14.5) 

(146) 

(147) 
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decs  h  exp  _ 


con 


decs  h  exp  :  con  decs  h  exp  I 
decs  h  exp  I  con 


(148) 


decs  h  mod 


sig 


decs  h  mod  :  sig  decs  h  mod  I 
decs  h  mod  I  sig 


(149) 
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6 


Dynamic  Semantics 


6.1  Introduction 

The  dynamic  semantics  is  written  as  a  natural  semantics,  but  could  (and 
probably  should)  easily  be  turned  into  the  specihcation  of  an  abstract  ma¬ 
chine. 

The  components  of  the  judgments  include: 

•  A,  a  context  (decs)  giving  the  types  of  locations  and  exception  names. 
This  is  used  to  choose  “new”  locations  and  exception  names,  and  to 
allow  a  proof  of  type-preservation. 

•  (7,  a  store  mapping  the  locations  in  bound(A)  to  values. 

•  if,  a  “stack”  of  frames  which  all  together  represent  a  continuation  or 
evaluation  context.  If  F  ranges  over  frames  (see  Section  6.2),  then  we 
dehne  the  grammar  for  E  by 

E::=  [] 

I  EoF 

As  a  technical  convenience,  we  let  R  range  over  a  subset  of  frames  called 
“raise  frames.”  These  are  the  frames  which  propagate  all  exceptions. 

•  ans,  an  “answer”  resulting  from  evaluating  a  core  or  module  expression, 
with  the  following  grammar: 

ans  ::  =  VALUE  (val)  (Result  is  a  value) 

I  UNCAUGHT(  expy)  (Uncaught  exception) 

I  FAIL  (Uncaught  failure) 

•  Ans,  an  “answer”  resulting  from  evaluating  an  entire  program  (tbnds), 
with  the  following  grammar: 

Ans  ::=  VALU ES(t6nds)  (Program  result) 

I  UNCAUGHT(  expy)  (Uncaught  exception) 

I  FAIL  (Uncaught  failure) 
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6.2  Frames 


I  []  exp 

I  exp^  [] 

I  {rbndsy^  lbl\>[]^  rbnds} 

I  [mi 

I  handle  []  with  ea;p 
I  raise  [] 

I  catch  []  with  exp 

I  let  t;ar=[]  in  ea;p  end 
I  ref“"[] 

I  get[] 

I  [] 

I  roliro 
I  unroliro 
I  injra 
I  pKO 

I  [] 

I  untag*^™"  [] 

I  case'^"’^  i^xp^,  •  •  • ,  exp^)  of  []  end 
I  [sbndsy^  lbl\>var=[]^  sbnds] 

I  []  mod 
I  mody  [] 

I  [].lbl 

I  []-Si9 
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6.3  Raise  Frames 

R::=  [] 

I  []  exp 

I  exp^  [] 

I  {rbndsy^  lbl\>[]^  rbnds} 

I  [mi 

I  raise  [] 

I  let  t;ar=[]  in  ea;p  end 
I  ref“"[] 

I  get[] 

I  set[] 

I  rolira 
I  unrolira 
I  injra 
I  proj*  [] 

I  [] 

I  untag*^™"  [] 

I  case'^"’^  i^xp^,  •  •  • ,  exp^)  of  []  end 
I  [sbndsy^lbl\>var=[]^sbnds] 

I  []  mod 
I  mody  [] 

I  [].lbl 

I  []-stg 
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6.4  Judgment  Forms 

Judgment...  Meaning... 


A,  (7,  h  exp  JJ-  A',  cr',  em.s 
A,  (7,  h  mod  JJ-  A',  cr',  em.s 
val  h  A,  (7,  £"  JJ-  A',  cr',  ans 
raise  ea;pv  H  A,  cr,  iiJ  JJ-  A',  cr',  ans 
fail  h  A,  cr,  £■  JJ-  A',  cr',  ans 


Evaluation  of  expression 
Evaluation  of  module  expression 
Plug  value  back  into  most  recent  frame 
Propagate  exception 
Propagate  failure 


A,  cr  h  tbnds  JJ-  A',  cr',  Ans 


Evaluation  of  entire  program 


6.5  Inference  Rules 


A,  (7,  FJ  h  exp  JJ-  A',  (j',  an,s 


val  h  A,  cr,  E  JJ-  A',  cr',  ans 
A,  cr,  E  h  val  JJ-  A',  cr',  ans 

A,  cr,  E  o  [[]  ea;p']  h  exp  JJ-  A',  cr',  ans 
A,  cr,  E  h  ea;p  ea;p'  JJ-  A',  cr',  ans 

A,  cr,  E  o  [{/&/>[],  r6nds}]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  E  h  {lbl>exp,  rbnd.s}  JJ-  A',  cr',  ans 


(150) 

(151) 

(152) 


Rule  152:  A  record  value  can  evaluate  to  itself  in  one  step  (via  Rule  150)  or 
here  component-by-component. 


A,  cr,  E  0  [[]^/6/]  h  exp  JJ-  A',  cr',  ans 

A,  cr,  E  h  exp^lbl  JJ-  A',  cr',  ans 

(153) 

A,  cr,  E  0  [handle  []  with  ea;p']  h  exp  JJ-  A',  cr',  ans 

A,  cr,  E  h  handle  ea;p  with  ea;p'  JJ-  A',  cr',  ans 

(154) 

A,  cr,  E  0  [raise  []]  h  ea;p  JJ-  A',  cr',  ans 

A,  cr,  E  h  raise  exp  JJ-  A',  cr',  ans 

(155) 

A,  cr,  E  0  [catch  []  with  ea;p']  h  exp  JJ-  A',  cr',  ans 

A,  cr,  E  h  catch  ea;p  with  exp'  JJ-  A',  cr',  ans 

(156) 

fail  h  A,  cr,  E  JJ-  A',  cr',  ans 

A,  cr,  E  h  fail  JJ-  A',  cr',  ans 

(157) 
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E  o  [let  var=[]  in  exp  end]  h  mod  JJ-  A',  cr',  ans 
A  ,  (7,  E  h  let  var=mod  in  exp  end  JJ-  A',  cr',  ans 


(158) 


name  ^  dom(A) 

{mkoA  war: con. tag*"”"®  var, 

kmoA  cariAny.untag’"”"®  var}  h  A[name:con  Name],  cr,  A  JJ-  A',  cr',  ans 


A,  cr,  A  h  new_stamp[con]  JJ-  A',  cr',  ans 


(159) 


A,  cr,  A  o  [ref'^""  []]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  A  h  ref'^""  exp  JJ-  A',  cr',  ans 

A,  cr,  A  o  [get  []]  h  exp  JJ-  A',  cr',  ans 
A,  cr,  A  h  get  ea;p  JJ-  A',  cr',  ans 

A,  cr,  A  o  [set  []]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  A  h  set  ea;p  JJ-  A',  cr',  ans 

A,  cr,  A  o  [roll™"  []]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  A  h  roll™"  ea;p  JJ-  A',  cr',  ans 

A,  cr,  A  o  [unroll™"  []]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  A  h  unroll™"  ea;p  JJ-  A',  cr',  ans 

A,  cr,  A  o  [inj™"  []]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  A  h  inj™"  exp  JJ-  A',  cr',  ans 

E  o  [projj  []]  h  exp  JJ-  A',  cr',  ans 
A,  cr,  £■  h  projj  ea;p  JJ-  A',  cr',  ans 

A,  cr,  £■  o  [inj[J‘”"®  ]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  £■  h  tag*"”"®  ea;p  JJ-  A',  cr',  ans 

A,  cr,  £■  o  [untag""*"®  []]  h  ea;p  JJ-  A',  cr',  ans 
A,  cr,  £■  h  untag"'”"®  ea;p  JJ-  A',  cr',  ans 


(160) 

(161) 

(162) 

(163) 

(164) 

(165) 

(166) 

(167) 

(168) 


A,a,  E  o  [case"""  (exp^,  •  •  •  ,  exp^)  of  []  end]  h  exp  JJ-  A',  cr',  ans 
A,  cr,  £■  h  case"""  (exp^,  •  •  • ,  exp^)  of  exp  end  JJ-  A',  cr',  ans 

A,a,  E  o  [[]./6/]  h  mod  JJ-  A',  cr',  ans 
A,  cr,  £■  h  mod.lbl  JJ-  A',  cr',  ans 


(169) 

(170) 
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A,  (7,  E"  h  mod  JJ.  A',  a' ,  ans 


A,  cr,  A  0  [[/6/i>t;ar=[],  s6n(/s]]  h  exp  JJ-  A',  cr',  ans 

A,  cr,  A  h  [lbl>var=exp ,  sbnds]  JJ-  A',  cr',  ans 

(171) 

con  h  A,  cr,  A  0  [[/6/i>t;ar=[],  sbnds]]  JJ-  A',  cr',  ans 

A,  cr,  A  h  [/6/i>t;ar  =  con,  s6n(/s]  JJ-  A',  cr',  ans 

(172) 

A,  cr,  A  0  [[/6/i>t;ar  =  [],  s6n(/s]]  h  mo(/  JJ-  A',  cr',  ans 

A,  cr,  £■  h  [lbl\> var=mod ,  sbnds]  JJ-  A',  cr',  ans 

(173) 

A,  cr,  £■  0  [[]  mo(/']  h  mo(/  JJ-  A',  cr',  ans 

A,  cr,  £■  h  mo(/  mo(/'  JJ-  A',  cr',  ans 

(174) 

A,  cr,  £■  0  [[]./6/]  h  mo(/  JJ-  A',  cr',  ans 

A,  cr,  £■  h  mod.lbl  JJ-  A',  cr',  ans 

(175) 

A,  cr,  £■  0  [[]:sz5]  h  mo(/  JJ-  A',  cr',  ans 

A,  cr,  £■  h  mod'.lbl  JJ-  A',  cr',  ans 

(176) 

val  h  A,  (7,  E  JJ.  A',  a' ,  ans 


val  h  A,  (7,  []  JJ-  A,  (7,  VALU E(t;a/) 

A,  (7,  A  o  [ea;pv  []]  E  ea;p  JJ-  A',  cr',  ans 
ea;pv  H  A,  cr,  A  o  [[]  exp]  JJ-  A',  cr',  ans 


(177) 

(178) 


eaipv^  =  ^'\'x.{lbli={var'-:vari)eP-exp-)^_^  in  war/;  end  {\/k  G  l..n) 

1  <  z  <  n 

A,  (7,  A  h  [eaipv^/warj]  •  •  •  [exp^'^  /  var'^][exp^  /  var  i]  exp  -  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  A  o  [expy'‘  []]  JJ-  A',  cr',  ans 


(179) 


A,  cr,  A  o  [{r6n(/sv,  lbl>exp^^  /6/'i>[],  r6n(/s}]  h  ea;p'  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  A  o  [{rbndsy^  /6/i>[],  lbl'\>expk  rbnels}]  JJ-  A',  cr',  ans 


(180) 


{r6n(/sv,  lbl\>expy}  h  A,  cr,  A  JJ-  A',  cr',  ans 
expy  h  A,  cr,  A  o  [{r^nc/sy,  /^E[]}]  JJ-  A',  cr',  ans 


(181) 
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(182) 


eaipv  H  A,  (7,  JJ-  A',  cr',  ans 

{rhnds^^  lbl>expy,  rbndsy}  \-  A,  a,  E  o  [[]^/6/]  JJ,  A',  a',  ans 

expy  h  A,  (7,  £"  JJ-  A',  cr',  ans 
expy  \-  A,a,  E  o  [handle  []  with  exp]  JJ-  A',  cr',  ans 

raise  exp^  h  A,  cr,  iiJ  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  £■  o  [raise  []]  JJ-  A',  cr',  ans 

eaipv  H  A,  cr,  £■  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  £■  o  [catch  []  with  exp]  JJ-  A',  cr',  ans 


(183) 

(184) 

(185) 


loc  ^  dom(A)  loc  h  A[/oc:con],  cr[/oc  i— >  exp^]^  E  JJ-  A',  cr',  ans 
expy  \-  A,  a,  E  o  [ref []]  JJ-  A',  cr',  ans 


(186) 


expy  =  cr(/oc)  eaipv  H  A,  cr,  iiJ  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  £■  o  [get  con[]]  JJ-  A',  cr',  ans 

{}  h  A,  cr[/oc  I— >  eaipv],  E  JJ-  A',  cr',  ans 
{lo/oc,  2i>ea;pv}  H  A,  cr,  iiJ  o  [set  con[]]  JJ-  A',  cr',  ans 

expy  h  A,  cr,  £■  JJ-  A',  cr',  ans 
expy  \-  A,  a,  E  o  [rollj'”^  []]  JJ-  A',  cr',  ans 

expy  h  A,  cr,  £■  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  £■  o  [unroll™’^  []]  JJ-  A',  cr',  ans 

inj™*^  eaipv  H  A,  cr,  iiJ  JJ-  A',  cr',  ans 
eaipv  H  A,  cr,  £■  o  [inj™*^  []]  JJ-  A',  cr',  ans 

expy  h  A,  cr,  £■  JJ-  A',  cr',  ans 
injf  exp^  h  A,  (7,  -E  o  [proj,„„,  z[]]  ^  A',  a',  ans 

i  ^  j  fail  h  A,  cr,  £■  JJ-  A',  cr',  ans 
inj™*^  eaipv  ^  A,  a,  Eo  [proj,„„,  j[]]  ^  A',  a',  ans 

^.ggiiame  h  A,  (7,  E"  JJ-  A',  ct',  ans 
eaipv  H  A,  cr,  E"  o  [tag’^“’"®  []]  JJ-  A',  cr',  ans 


(187) 

(188) 

(189) 

(190) 

(191) 

(192) 

(193) 

(194) 
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(195) 


eaipv  H  A,  (7,  JJ-  A',  cr',  ans 
^.ggiiame  h  A,  (7,  E"  o  [untag’^"’"®  []]  JJ-  A',  cr',  ans 

name  ^  name'  fail  h  A,  cr,  £"  JJ-  A',  cr',  ans 
^.ggname  g^.^^  h  A,  (7,  iij  O  [u  ntag’^“’"®'  []]  JJ-  A',  Ct',  ttUS 


(196) 


A,  cr,  £■  h  eaipj  exp^  JJ-  A',  cr',  ans 
exp^  h  A,  cr,  £■  o  [case'^'”^'  (ea;p^,  •  •  •  ,  exp^)  of  []  end]  JJ-  A',  cr',  ans 


(197) 


A,  cr,  £■  h  [mof/v/uar]  ea;p  JJ-  A',  cr',  ans 
mo(/v  h  A,  cr,  £■  o  [let  t;ar=[]  in  exp  end]  JJ-  A',  cr',  ans 

A,  cr,  £■  o  [mo(/v  []]  H  mo(/  JJ-  A',  cr',  ans 
mo(/v  h  A,  cr,  £■  o  [[]  mod'\  JJ-  A',  cr',  ans 

A,  cr,  £■  h  [mof/v/uar] mo(/  JJ-  A',  cr',  ans 
mody  h  A,  cr,  £■  o  [(Awarisz'^.mof/)  []]  JJ-  A',  cr',  ans 

val  h  A,  cr,  £■  JJ-  A',  cr',  ans 

[sbndsy,  lbl>val,  sbnds^']  \-  A,  a,  E  o  [[]./6/]  JJ-  A',  a',  ans 

mody  h  A,  cr,  £■  JJ-  A',  cr',  ans 
mody  h  A,  cr,  £■  o  [[isz^]  JJ-  A',  cr',  ans 
Rule  202:  Forgetting  of  type  abbreviations  has  no  run-time  effect. 


(198) 

(199) 

(200) 

(201) 

(202) 


A,  cr,  £■  o  [[sbndsy^  lbl>var=val,  lbl'\>var'=[]^  [val / var]sbnds]]  h  [val/var]  exp  JJ-  A',  cr',  ans 

val  h  A,  cr,  £■  o  [[sbndsy^  lbl\>var=[]^  lbl'>var'=  exp,  [val / var]sbnds]]  JJ-  A',  cr',  ans 

(203) 

A,a,  E  o  [[sbndsy,  lbl>var=val ,  lbl'>var'=[],  [val / var]sbnds]]  h  [val / var]mod  JJ-  A',  cr',  ans 

val  \-  A,  a,  E  o  [[sbnds^,  lbl>var=[],  lbl'>var'=mod,  [val / var]sbnds]]  JJ-  A',  cr',  ans 

(204) 


con  h  A,  cr,  £■  o  [[s6n(/sv,  lbl>var=val,  lbl'\>var'=[]^  [val / var]sbnds]]  JJ-  A',  cr',  ans 

val  h  A,  cr,  £■  o  [[s6n(/sv,  /6/i>car=[],  lbl'\>var'=con,  [val j var]sbnds\\  JJ-  A',  cr',  ans 

(205) 


[s6n(/sv,  lbl>var=val]  h  A,  cr,  iiJ  JJ-  A',  cr',  ans 
val  h  A,  cr,  £■  o  [[s6n(/sv,  /6/i>car  =  []]]  JJ-  A',  cr',  ans 


(206) 
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raise  exp^  h  A,  (7,  E"  JJ.  A',  a',  ans 


raise  exp^  h  A,  cr,  []  JJ-  A,  cr,  UNCAUGHT(ea;pv) 

raise  exp^  h  A,  cr,  A  JJ-  A',  cr',  ans 
raise  ea;pv  H  A,  cr,  A  o  i?  JJ,  A',  cr',  ans 

A,  cr,  A  h  ea;p  exp^  JJ-  A',  cr',  ans 
raise  exp^  h  A,  cr,  A  o  [handle  []  with  exp]  JJ-  A',  cr',  ans 

raise  ea;pv  H  A,  cr,  A  JJ-  A',  cr',  ans 
raise  ea;pv  H  A,  cr,  A  o  [catch  []  with  exp]  JJ-  A',  cr',  ans 


(207) 

(208) 

(209) 

(210) 


fail  h  /i,  (T,  i?  IL  /!',  a',  ans 


fail  h  A,.7,  []  1)  A,<t,  FAIL 


(211) 


fail  h  A,  cr,  A  JJ-  A',  cr',  ans 
fail  h  A,  cr,  A  o  i?  JJ-  A',  cr',  ans 


(212) 


fail  h  A,  cr,  A  JJ-  A',  cr',  ans 
fail  h  A,  cr,  A  o  [handle  []  with  exp]  JJ-  A',  cr',  ans 

A,  cr,  A  h  exp  JJ-  A',  cr',  ans 
fail  h  A,  cr,  A  o  [catch  []  with  exp]  JJ-  A',  cr',  ans 


(213) 

(214) 


A,  (7  h  tbnds  JJ-  A',  rr', 


A,(7  h  •  ^  A,(7,VALUES(-) 


(215) 


A,  cr,  []  h  mod  JJ-  A',  cr',  VALU  E(mo(/v) 

A',  cr'  h  [mo(/v/ car] f6n(/s  JJ-  A",  cr",  VALU ES(t6nc/s') 

A,cr  h  lbl>var=mod^  tbnds  JJ-  A",  cr",  VALU ES(/6/i>t;ar=mo(/v,  f^ric^s^) 


(216) 


A,  cr,  []  h  mod  JJ-  A',  cr',  VALU  E(mo(/v) 

A',  cr'  h  [mo(/v/ car] f6n(/s  JJ-  A",  cr",  UNCAUGHT(ea;pv) 
A,  cr  h  lbl>var=mod,  tbnds  JJ-  A",  fj",  UNCAUGHT(  expy) 


(217) 
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(218) 


A,  (7,  []  h  mod  JJ-  A',  cr',  VALU E(mo(/v) 
A',  cr'  h  [modyj var]tbnds  JJ-  A",  cr",  FAIL 
A,  cr  h  lbl\>var=mod,  tbnds  JJ-  A",  cr",  FAIL 


A,  (7,  []  h  mo(/^  A',  a',  UNCAUGHT(ea;pv) 

A,  cr  h  lbl>var=mod,  tbnds  JJ-  A",  a",  UNCAUGHT(  expy) 

A,  cr,  []  h  mod  JJ-  A',  cr',  FAIL 
A,  cr  h  lbl\>var=mod,  tbnds  JJ-  A",  cr",  FAIL 

A,  cr  h  lbl>var=mod^  tbnds  JJ-  A",  cr",  VALU  ES(t6n(/s^) 
A,  cr  h  tbnds  JJ-  A",  cr",  \//KL\JES{M>var  =  sig^  tbnds') 


(219) 

(220) 
(221) 
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7  External  Language 


7.1  Notation 

As  in  the  Definition^  optional  elements  elements  are  enclosed  by  single  brack¬ 
ets  (•  •  •)  or  double  brackets  ((•  •  •)).  For  the  purposes  of  this  grammar,  all 
optional  choices  are  completely  independent. 

7.2  Grammar  of  the  Abstract  Syntax 

expr  ::=  scon 
I  longid 

I  {labi  =  expr  I ,  ■  ■  ■  ,  labn  =  expr.fi} 

I  let  strdec  in  expr  end 
I  expr  expr' 

I  expr  :  ty 
I  expr  handle  match 
I  raise  expr 
I  fn  match 

mrule  ::=  pat  =>  expr 

match  ::=  mrule 

I  mrule  \  match 

strdec  ::=  val  (tyvar^ ,  ■  ■  ■  ,  tyvar.fi  pat  =  exp 

I  val  (tyvar^,  ■  ■  ■  ,  tyvar.fi  rec  pat  =  exp 
I  strdeci  strdec2 
I  open  longidi  ■  ■  ■  longid.^ 

I  exception  id 
I  exception  id  of  ty 
I  exception  id  =  longid 
I  local  strdeci  in  strdec2  end 
I  type  tybind 
I  datatype  datbind 
I  structure  strbind 
I  fnnctoT  funbind 
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tybind  ::  = 
datbind  ::  = 
conbind  ::  = 

strexp  ::  = 


spec  ::  = 


typdesc  ::  = 


sigexp  ::  = 


pat  ::  = 


{(tyvar^,  ■■■  ,tyvar^))  tycon  =  ty  ((and  tybind)) 

(tyvar^,  ■  ■  ■  ,tyvar,^)  tycon  =  conbind  (and  datbind) 
id  (of  ty)  ((I  conbind)) 

struct  strdec  end 

funid  (strexp) 

strexp  :  sigexp 

strexp  :  >  sigexp 

let  strdec  in  strexp  end 

val  id  :  ty 

type  typdesc 

datatype  datbind 

exception  id 

exception  id  of  ty 

structure  strid  :  sigexp 

fnnct or  funid  (strid  :  sigexp)  :  sigexp' 

include  sigexp 

spec^  spec2 

spec  sharing  type  longid^  =  longid2 

{(tyvar^,  ■■■  ,tyvar^))  tycon  ((and  typdesc)) 

{(tyvar^,  ■■■  ,tyvar^))  tycon  =  ty  ((and  typdesc)) 

sig  spec  end 
sigid 

sigexp  where  type  {(tyvar^,  ■  ■  ■  ,tyvar^))  longtycon  =  ty 
sigexp  where  type  {(tyvar^,  ■  ■  ■  ,tyvar^))  longtycon  =  own  ty 

scon 

longid 

pat  :  ty 
longid  pat 

{labi  =  pat^ ,  ■  ■  ■  ,  labn  =  pat,^[ ,...)} 
pat^  as  pat2 
ref  pat 
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ty  :: 


sigbind  :: 
strbind  :: 
funbind  :: 

topdec  :: 


tyvar 

{labi  :  expr^,  ■■■  ,labn  '•  expr^} 

{(ty^,  ■  ■  ■  ,tyj)  longtycon 
ty  ->  ty' 

sigid  =  sigexp  (and  sigbind) 
strid  =  strexp  (and  strbind) 
funid  (strid  :  sigexp)  =  strexp  {a.TLd  funbind) 

signature  sigbind 
structure  strbind 
functor  funbind 
topdec^  topdec2 
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7.3  Syntactic  Restrictions 

•  No  pattern  may  contain  the  same  id  twice.  No  record  expression, 
pattern,  or  type  may  contain  the  same  lab  twice.  No  tyvar  may  appear 
more  than  once  in  a  single  sequence. 

•  Any  type  variable  occuring  in  a  conbind  must  also  appear  in  the  en¬ 
closing  datbind.  Any  type  variable  appearing  in  the  ty  of  a  where  type 
must  appear  in  the  type  variable  sequence. 

•  No  val,  type,  datatype,  exception,  structure,  signature,  or  functor 

binding  or  specihcation  may  bind  the  same  identiher  twice;  this  applies 
also  to  value  constructors  within  a  datbind. 

•  In  a  val  rec  declaration,  the  pattern  must  be  of  the  form 

{.labi=idi ,  ■  ■  ■  ,  labn=idny 
and  the  expression  must  be  of  the  form 

{/a6i=fn  matchi,  ■■■  ,/a6„=fn  matchny. 

Hence  the  “ .  .  .  ”  EL-notation  may  not  appear  in  the  pattern. 

•  We  disallow  “polymorphic  recursion”  in  a  datbind;  any  recursive  use 
of  a  datatype  must  be  applied  to  exactly  the  same  type  variables  that 
scope  the  dehnition  of  that  datatype.  This  disallows  such  code  as 

datatype  'a  invalid  =  A  |  B  of  ('a  *  'a)  invalid 
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8 


The  Translation 


8.1  Introduction 

In  addition  to  type-checking  and  type-reconstruction,  the  elaborator  per¬ 
forms  the  following  tasks: 

1.  Datatypes  are  expanded  into  structures  and  signatures  whose  compo¬ 
nents  include 

•  an  abstract  implementation  type  (which  is  chosen  to  be  a  recursive 
sum  type); 

•  operations  corresponding  to  constructors  as  values; 

•  operations  corresponding  to  constructors  as  patterns  (deconstruc¬ 
tors); 

•  a  “case”  function  that  does  branching  but  no  destructuring. 

In  particular,  a  datatype  translates  to  a  type  and  a  series  of  construc¬ 
tors.  The  constructors  are  little  structures  containing  two  components; 
the  “mk”  component  is  the  injection  into  the  datatype  while  the  “km” 
component  is  the  projection  from  the  datatype.  Note  that  the  mk  com¬ 
ponent  is  always  total,  but  the  km  component  may  fail  if  there  is  more 
than  one  constructor.  (Exception  constructors  are  handled  similarly  to 
datatype  constructors,  except  that  their  “mk”  and  “km”  components 
are  monomorphic.) 

The  “generativity”  of  datatypes  is  handled  via  signature  ascription;  the 
type  is  made  opaque  in  the  corresponding  signature,  and  is  therefore  not 
equivalent  to  any  other  type.  The  matching  of  datatypes  in  signatures 
reduces  to  the  matching  of  substructures. 

2.  Polymorphism  is  encoded  as  a  use  of  the  modules  system.  Polymorphic 
values  are  translated  into  functors,  which  are  explicitly  instantiated 
with  structures  of  types  when  necessary.  More  precisely,  the  functor 
takes  a  structure  containing  type  constructors  of  kind  0,  and  returns  a 
structure  whose  single  component  (with  label  “it”)  is  the  polymorphic 
value  made  monomorphic  by  instantiating  it  with  the  given  types. 
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3.  Patterns  are  expanded  into  uses  of  the  appropriate  record  projections 
and  datatype  deconstructors.  Thus  the  translation  specihes  a  reference 
pattern  compiler. 

4.  Each  series  of  external  language  bindings  (strdec)  translates  into  a 
structure,  containing  a  component  for  every  variable  bound  in  the  ex¬ 
ternal  language.  External  language  identifiers  correspond  to  internal 
language  labels. 

5.  Some  structure  labels  are  explicitly  marked  with  an  asterisk  (Ibl*).  This 
indicates  that  the  structure  is  “open”  for  the  purposes  of  identiher 
lookup.  (See  the  lookup  rules  for  more  details.) 

6.  In  structures,  open  declarations  are  handled  by  translating  held  names 
into  paths.  Thus  there  is  no  run-time  copying/hattening  of  structures 
due  to  open. 

7.  All  coercive  aspects  of  the  signature  matching  relation  (the  reorder¬ 
ing  and  forgetting  of  components)  are  handled  by  introducing  explicit 
coercion  functors  witnessing  the  relation.  This  makes  the  order  and 
number  of  components  a  structure  apparent  from  its  signature. 

8.2  Notation 

•  The  overbar  function  ~  maps  each  EL  identiher  to  an  IL  label.  We  as¬ 
sume  that  this  function  is  injective,  that  the  range  is  coinhnite  in  the  set 
of  IL  labels,  and  that  identihers  of  diherent  classes  map  to  diherent  la¬ 
bels.  In  particular,  we  assume  that  the  parser  distinguishes  between  the 
classes  of  expression  variables,  type  constructors,  type  variables,  struc¬ 
ture  identihers,  signature  identihers,  and  functor  identihers.  However, 
we  do  not  distinguish  between  an  identiher  being  used  as  an  expression 
variable,  datatype  constructor,  or  exception  constructor. 

The  special  labels  “mk”,  “km”,  “case”,  and  “it”  used  by  translation 
are  not  in  the  range  of  the  overbar  mapping,  and  labels  chosen  to  be 
“fresh”  are  similarly  not  in  the  range  of  the  mapping. 

We  extend  the  overbar  mapping  component-wise  to  long  identihers, 
which  thus  map  to  sequences  of  labels. 
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•  Optional  elements  are  enclosed  in  single  or  double  angle  brackets.  For 
each  rule,  either  all  or  none  of  the  elements  in  single  angle  brackets 
must  be  present,  and  similarly  all  or  none  of  the  elements  in  double 
angle  brackets  must  be  present.  Single  and  double  angle  brackets  in 
the  same  rule  represent  two  independent  choices. 

•  In  some  cases,  the  optional  element  notation  is  insufficient.  Therefore, 
we  have  the  additional  notation 

'  element^ 

<  or 
element2 

which  means  that  either  element ^  or  element2  must  be  present.  If 
there  are  multiple  such  choices  in  a  single  rule,  this  means  that  either 
the  hrst  element  should  always  be  chosen  in  all  cases,  or  the  second 
element  must  be  chosen  in  all  cases. 

An  extension  of  this  notation  gives  the  choices  subscripts.  Then  all 
choices  with  the  same  subscript  must  agree  (all  hrst  element  or  all 
second  element)  but  two  choices  with  different  subscripts  are  completely 
independent. 

•  The  translation  maintains  a  translation  context  F.  When  F  appears  in 
an  IF  judgment  where  decs  is  expected,  there  is  an  implicit  coercion 
which  drops  all  top-level  labels  and  all  signature  declarations. 

8.3  Initial  Basis 

The  translation  assumes  the  presence  of  a  structure  basis:sig  serving  as 
the  initial  basis  for  the  internal  language.  We  use  the  components: 


6asA.bind 
6asA.match 
basis. hool 
ba.sis 


Bind  exception 
Match  exception 

Bool  datatype,  with  constructors  basis.tiue  and  false 

Fquality  on  base  types  con  for  pattern-matching 
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8.4  Judgment  Forms 


Judgment... 
r  h  expr  exp  :  con 
r  h  match  ^  exp  :  con 
r  h  .strdec  ^  mod  :  .sig 
r  h  strexp  ^  mo(/  :  .sig 
r  h  spec  ^  [sdec.s]  :  Sig 
r  h  sigexp  ^  sig  :  Sig 
r  h  topdec  ^  tbnds  :  tdecs 
T  \-  ty  con  :  0 
r  h  tybind  ^  mod  :  .sig 
r  h  datbind  ^  mo(/  :  sig 

r  h  pat  ea;p  :  con  |  ea;p'  ^  mod  :  sz'p 

r  Ibl  path  :  Q  j sig 
V ,  path'.sdecs  i^ig  Ibl  ^  Ibis  :  0 

(/ecs  i^ub  sig^  ^  sz'p  ^ 
(XvarQ-.sigQ.mod)  : 
[[varo:.sigQ)^.sig') 

sig  h^t  Ibis  :=  con  :  knd  ^  sig'  :  Sig 
sig  Ibis  :=  Ibis'  :  knd  ^  sig'  :  Sig 


Meaning... 

Translation  of  an  expression 
Translation  of  a  pattern  match 
Translation  of  a  declaration 
Translation  of  a  structure  expression 
Translation  of  a  signature  specification 
Translation  of  a  signature  expression 
Translation  of  a  program 
Translation  of  a  type 
Translation  of  a  type  definition 
Translation  of  a  datatype  definition 

Pattern  Compilation 

Lookup  in  a  translation  context 
Lookup  in  a  signature 

Witness  to  EL-signature  subtyping 

Signature  Patching  (where  type) 
Signature  Patching  (sharing  type) 


8.5  Inference  Rules 
Expressions 


P  h  scon  ^  scon  :  type(scon) 


(222) 


P  htx  longid  ^  path  :  con 
P  h  longid  ^  path  :  con 


(223) 


Rule  223:  This  rule  handles  monomorphic  identihers. 
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(224) 


r  longid  ^  path  :  sig 
r  h  sig  <  {sigp„iy^[\t>con\)  :  Sig 

r  h  modpoiy  ;  sig^^iy _ 

r  h  longid  ^  path[mod poiy) .it  :  con 


Rule  224: 

•  This  rule  handles  instantiation  of  polymorphic  identihers. 

•  Recall  that  all  polymorphic  functions  are  translated  into  total  functors 
whose  body  contains  a  single  component  with  the  label  “it” . 

•  The  module  modpoiy  in  Rule  224  is  the  structure  of  types  that  we 
“guess”  to  instantiate  the  polymorphic  function. 


r  i^tx  longid  ^  path  :  .sig  V  h  path.mk  :  con 
r  h  longid  ^  path  :  con 


(225) 


r  i^tx  longid  ^  path  :  .sig  V  h  path.mk  :  .sig^]^ 

r  H  sig^y^  <  {sigp„iy^[\t>con\)  :  Sig 

_ r  h  modpoiy  ;  .sicjy^iy _ 

r  h  longid  ^  [[path. mk) modpoiy). it  ■  con 


(226) 


Rules  225  and  226:  Recall  that  constructors  translate  to  structures  with  mk 
and  km  components.  When  a  constructor  is  used  as  a  value,  we  translate  it 
to  the  mk  operation,  making  the  type  partial  in  the  process. 


r  h  expvi  ^  expi  :  coni  '  '  '  T  h  expr.^  ^  cxp.^  :  con„ 

T  \- {labi  =  expr^,- ■  ■  ,labn  =  expr,^}^ 

{labi\>exp^,  •  •  •  ,  labn>exp,^}  :  {labi\>coni^  •  •  •  ,  labn>conn} 


(227) 


r  h  dec  ^  mod  :  sig 

var  ^  bound(r)  F,  lbr\>var\.sig  h  expr  ^  exp  :  con' 
r,  vav.sig  h  con'  =  con  :  0  F  h  con  :  0 
F  h  let  dec  in  expr  end  ^  let  war = mod  in  ea;pend  :  con 


(228) 
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Rule  228: 


•  Declarations  are  uniformly  translated  to  components  of  a  structure;  the 
“starred  structure”  convention  is  used  here  to  make  these  components 
accessible  by  name. 

•  This  rule  prohibits  the  type  of  the  body  from  depending  on  abstract 
types  dehned  locally — in  particular,  datatypes  cannot  escape  their 
scope. 


r  h  expr  exp  :  con"  V  h  expr'  ^  exp'  :  con' 
r  h  exp  :  con'^con 
r  h  expr  expr'  ^  exp  exp'  :  con 


(229) 


Rule  229:  We  check  that  the  application  is  well-typed  in  the  IL.  (This  rule 
works  whether  exp  is  partial  or  total.) 


r  h  expr  exp  :  con  V  \-  ty  ^  con'  :  0  F  h  con  =  con'  :  0 
r  h  expr  :  ty  ^  exp  :  con 


(230) 


r  h  expr  exp  :  con  F  h  match  ^  exp'  :  Any^con  var  ^  bound(F) 


F  h  expr  handle  match  ^ 

handle  exp  with  A  uariAny. (catch  exp'  var  with  raise  var)  :  con 


(231) 


Rule  231:  The  handling  expression  exp'  var  may  fail  if  the  handler  pattern 
does  not  match  the  exception  raised,  in  which  case  we  propagate  the  excep¬ 
tion. 


F  h  expr  ^  exp  :  Any 
F  h  raise  expr  ^  raise  exp  :  con 


(232) 


F  h  match  ^  exp  :  coni^con2  var  ^  bound(F) 

F  h  f  n  match  ^ 

A  var: coni. (catch  sxp  var  with  raise  Match)  :  coni^con2 


(233) 


Rule  233:  The  expression  exp  var  will  fail  if  the  match  fails;  here  we  turn 
failure  into  a  6as*s. Match  exception. 
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Matches 


r  h  match  ^  exp  :  con 


var,  var'  ^  bound(r) 
r  h  con'  :  0 

r  h  pat  var'  :  con'  \  fail  ^  mod  :  sig 
r,  lbl*\>var\sig  h  expr  ^  exp  :  con 
r  h  pat  =>  expr  ^ 

A  carbconMet  t;ar=mo(/ in  ea;pend  :  con'^con 


(234) 


Rule  234: 


•  The  result  of  translating  a  match  is  a  function  that  may  fail  if  the 
match  fails. 

•  We  know  that  F  h  con' ^con  :  SI  because  the  pattern-compilation  rules 
create  a  structure  with  no  type  components. 


var  ^  bound(r) 
r  h  mrule  ^  exp  :  con' ^  con 
r  h  match  ^  exp'  :  con' ^  con 
r  h  mrule  \  match  ^ 

A  caricon'. catch  exp  var  with  exp'  var  :  con'^con 


(235) 


Declarations 


r  h  strdec  ^  mod  :  sig 


r  h  expr  ^  exp  :  con 

r  h  pat  4=  exp  :  con  \  raise  Bind  ^  mod  :  sig 
r  h  val  0  pat  =  expr  ^  mod  :  sig 


(236) 


Rule  236:  This  is  the  monomorphic,  non-recursive  case. 
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Ibl*  ^  dom(r)  Ibl'  fresh 
■‘^^9poiy  =  [tyvar^>n,  ■  ■  ■  ,  tyvar.^>n,  M[>n,  •  •  •  , 

V ,lbr\>var poiy-.sig ^giy  h  expr  ^  exp  :  con 
r,  lbl*\>var poiy-.sig ygiy  h  pat  exp  :  con  \  raise  6asz,s.Bind  ^  mod  :  sig 
r,  Ibl* t>var poly-. sig. pgiy  h  mod  |  .sig 
.sig  =  [lbli\>coni,  •  •  •  ,  lblk>conk] 
r  h  val  (tyvar^^  ■  ■  ■  tyvar^)  pat  =  expr  ^ 

[Ibl'  \>var' ={\var-..sig  .ygiy.mod)  ^ 

Ibl it>{\var-..sig ygiy .[itt>{var'  [var)) .lbl']\) ^ 

lblk^{\var-..sig.ygiy.[itt>[var'  {var)) .Ibl'j,])]  : 

[Ibl  \>var' -.{[var-..sig poiy)^.sig), 
lbli>{{var-.sigy^iy)^[it>coni]), 

Ibl  k>{{var-.sigiy)^[\i>  conk])] 

(237) 


Rule  237: 

•  This  rule  handles  polymorphic,  non-recursive  val  bindings. 

•  We  assume  a  prepass  which  annotates  val  declarations  with  the  ex¬ 
plicit  type  variables  implicitly  scoped  by  that  declaration. 
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vaVpoiy  ^  bound(r) 

sigpoiy  =  [tyvari\>ft^  •  •  •  ,  tyvar^>i},  /6/ii>0,  •  •  •  ,  /6/mi>0] 
r'  =  r,  lbl*\>varp„iy\sigpgiy,  idi\>var\\coni^ con\,  •  •  •  ,  idn>var'^:conn^con'^ 
r'  h  matchi  ^  A  vari'.coni.exp^  :  coni^con[ 

r'  h  matchjn  ^  A  vavn-conn-exp^  :  coHn^con'^ 
expj,  =  fix  var'^  =  {vari\coni)'rP- exp^,  •  •  •  ,  var'^  =  {var m'- coiira)'^ exp in  var'^,  end 
r  h  val  (tyvar^^  ■  ■  ■  tyvar^)  rec  {{labi=idi)^_^}  =  {(/a6j=fn  matchi)^_^}  ^ 
[idi>{Xvarpoiy:sigp^iy.[it>exp^]) 


(Xvar poly :sigp„iy.[it> exp  J)]  : 

[idi>{{varpoiy:sigp^iy)^[it>coni^con[]), 


idm>{{varpoiy:sigpoiy)^[\t>conm-^con'J\)] 

(238) 


Rule  238:  This  rule  handles  recursive  val  bindings.  As  in  Rule  237,  we 
assume  that  the  implicit  scoping  of  explicit  type  variables  has  been  made 
explicit  by  a  prepass  over  the  EL. 


r  h  strdeci  ^  modi  ■  si-gi 
vari  ^  bound(r) 

r,  lbli*\>vari\sig^  h  strdec2  ^  mod2  :  sig2 
r  h  strdeci  strdec2  ^ 

[lbli*\>vari  =  modi,  lbl2*>var2=mod2] 
[lbli*\>vari:sigi^  Ibl2*>var2'.sig2] 

Rule  239:  Here  we  have  a  form  of  semantic  concatenation,  since  syntactic 
concatenation  could  result  in  malformed  signatures  with  duplicated  labels 
(if  EL  identihers  are  redehned).  Additionally,  some  declarations  (Rules  240 
and  244)  do  not  translate  into  explicit  structure  values. 


(239) 


r  longstrid^  ^  path^  :  sig^  T  f^tx  longstrid^  ^  peeth^  :  sig,^ 
r  h  open  longstrid^  ■  ■  ■  longstrid^  ^  path  :  sig 


(240) 
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Rule  240:  Though  structures  and  datatypes  both  translate  to  structures,  they 
have  different  namespaces  so  that  longstnd  can  never  specify  a  datatype. 


V  \-  ty  ^  con  :  0  var  ^  bound(r) 
r  h  exception  id  of  ty  ^ 

[z(/i>[/6/i>t;ar=new_stamp[con],  mki> war ^mk,  kmi>t;ar^km]]  : 
[z(/i>[iti>t;ar:{mki>con— >Any,  kmi>Any^ con}, 
mki>  con— >Any,  kmi>Any^con]] 


(241) 


Rule  241:  Note  that  the  type  of  km  is  partial,  whereas  the  type  of  mk  is 
total. 


V  \-  ty  Unit  :  0  var  ^  bound(r) 
r  h  exception  id ^ 

[zdi>[iti>t;ar=new_stamp[Unit],  mki>(t;ar^mk)  {},  kmocar^km]]  : 
[zdi>[iti>t;ar:{mki>Unit— >Any,  kmoAny^Unit}, 
mkoAny,  kmoAny^Unit]] 

(242) 

Rule  242:  Nullary  exceptions  require  special  treatment,  alas. 


r  ktx  longid  ^  path  :  sig 
r  h  path.mk  :  conmk  T  h  path.Vva  :  Any^con 

r  h  exception  id  =  longid  ^ 

[id>[mk\>path.mk^kni>path.km]]  : 
[zdi>[mki> conmk,  kmoAny^con]] 


(243) 


Rule  243:  We  check  that  longid  corresponds  to  an  exception  constructor  (and 
not  a  datatype  constructor)  by  looking  at  the  type  of  the  km  component. 


vari  ^  bound(r) 
r  h  strdeci  ^  modi  ■  si-di 
r,  lbli*\>vari:sig^  h  strdec2  ^  mod2  :  sig2 
r,  vari'.sig^  h  sig2  <  sig  :  Sig  F  h  sig  :  Sig 
r  h  local  strdeci  in  strdec2  end  ^ 

[lbli*\>vari  =  modi^  lbl2>var2  =  mod2:sig].lbl2  :  sig 


(244) 
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Rule  244:  We  create  a  two-component  structure  containing  all  the  bindings 
in  both  declarations,  but  do  not  expose  the  local  bindings.  Note  that  the 
visible  bindings  must  be  typable  with  respect  to  the  ambient  environment, 
which  does  not  include  abstract  types  dehned  locally. 


r  h  tybind  ^  mod  :  .sig 

(245) 

r  h  type  tybind  ^  mod  :  .sig 

r  h  datbind  ^  mod  : 

sig 

(246) 

r  h  datatype  datbind  ^  mod  :  sig 

r  h  strbind  ^  mod  : 

sig 

(247) 

r  h  structure  strbind  ^  mod  :  sig 

r  h  funbind  ^  mod  : 

sig 

(248) 

r  h  fnnctoT  funbind  ^  mod  :  sig 

Structure  Expressions 

r  h  strexp  ^  mod 

:  sig 

r  h  strdec  ^  mod  :  sig 

(249) 

r  h  struct  strdec  end  ^  mod  :  sig 

r  longstrid  ^  path 

:  sig 

(250) 

r  h  longstrid  ^  path  : 

sig 

r  ititx  funid  ^  path  :  {[vari\sig^)^sig2) 
r  h  strexp  ^  mod  :  sig 

r  sig  ^  sigi  ^  [Xvav.sig .modi)  ■  {{var:sig)^sig'() 

r  h  {{vari:sig^)-^sig.2)  <  (sig^-^sig'.^)  :  Sig 

(251) 

r 

h  funid  (strexp)  ^  path  [[Xvar:sig .modi)  mod)  :  .sig'^ 

Rule 

251: 

• 

We  insert  an  explicit  coercion  to  make  the  argument  structure  (which 
has  signature  sty)  match  the  domain  signature  of  the  functor  (stgi). 

• 

EL  polymorphic  identihers  cannot  be  applied  as  functors  in  the  EL  for 
two  reasons:  the  result  of  doing  the  lookup  must  have  a  partial  functor 
type,  and  the  name-spaces  of  functor  identihers  and  value  identihers 
are  disjoint. ‘ 
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var  ^  bound(r) 

r  h  strexp  ^  mod  :  sig  T  h  sigexp  ^  sig'  :  Sig 
r  bub  sig  ^  sig'  ^  [Xvav.sig.mod')  :  {{var:sig)^sig") 
r  h  strexp  :  sigexp  ^  [Xvav.sig.mod')  mod  :  sig" 

Rule  252:  As  in  SML,  ascribing  a  signature  to  a  structure  using  hides 
components  (this  hiding  being  accomplished  here  via  an  explicit  coercion), 
but  allows  the  identity  of  the  remaining  type  components  to  leak  through. 
The  rules  for  coercions  ensure  that  sig"  maximizes  propagation  of  type  in¬ 
formation. 


r  h  strexp  ^  mod  :  sig 
r  h  sigexp  ^  sig'  :  Sig 
var  ^  bound(r) 

r  bub  sig  ^  .sig'  ^  [Xvar:sig.mod')  :  [[var:sig)^sig") 
r  b  .strexp  :>  sigexp  ^  [Xvar:sig .[mod' :sig'))  mod  :  sig' 


(253) 


Rule  253:  Ascribing  a  signature  to  a  structure  with  :>  not  only  hides  com¬ 
ponents,  but  restricts  information  about  types  to  that  which  appears  in  the 
signature. 


vari  ^  bound(r) 
r  b  strdec  ^  modi  ■  sigi 
r,  lbli*\>vari:sig^  b  strexp  ^  mod2  :  sig2 
r,  vari'.sigi  b  sig2  <  sig  :  Sig  F  b  sig  :  Sig 
r  b  let  strdec  in  strexp  end  ^ 

[lbli*\>vari  =  modi^  lbl2>var2  =  mod2:sig].lbl2  :  sig 

Rule  254:  We  create  a  two-component  structure  which  includes  the  local 
module  binding,  but  do  not  expose  this  local  module.  Note  that  the  visible 
structure  must  be  typable  with  respect  to  the  ambient  environment,  which 
does  not  include  abstract  types  in  the  local  module. 


Structure  Binding 

r  b  strexp^  ^  modi  ■  sipi  (•  •  •  F  b  strexp^  ^  modn  '.  sig^) 

F  b  stridi  =  strexpi  (and  •  •  •  and  stridn  =  strexp^)  ^ 

[stridi\>modi{^  •  •  •  ,  stridn>modn)]  :  [stridi\>sig^{^  •  •  •  ,  stridn>sig^)] 

(255) 


r  h  strbind  ^  mod  :  sig 
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Functor  Binding 


r  h  funhind  ^  mod  :  sig 

var  ^  bound(r) 

r  h  sigexp^  ^  sig^  :  Sig  sigid^\>var:sig^  h  strexp^  ^  modi  ■  si-9'1 


(r  h  sigexp,^  ^  sig^  :  Sig  F,  sigid^>var:sig^  h  strexp^  ^  modn  ■  sig'^) 
r  h  idi^sigid^  :  sigexp^)  =  strexp^ 

(and  •  •  •  and  idnisigid^  :  sigexp^)  =  strexp^)  ^ 
funid^\>[Xvar:sig^.modi){^  ■  ■  ■  ,  funid^>(Xvar:sig^.modn))  : 
funid^>{{var:sig^)-^sig[){,  ■  ■  ■  Junid^>{{var:sigJ-^sig'J) 

(256) 


Rule  256:  All  functors  defined  explicitly  in  the  EL  have  partial  arrows. 


Specifications 


r  h  spec  ^  [sdecs]  :  Sig 


FTV(tj/)  =  0 

T  \-  ty  con  :  0 
r  h  val  id  :  ty  ^  [id\>con\  :  Sig 


(2.57) 


FTV(tj/)  =  {tyvar^,  •  •  •  ,  tyvar^}  ^  0 
=  [tyvar\>Vt,  •  •  •  ,  tyvar^>Vi\ 
r,  lbl*\>var:sig pgiy  \-  ty  con  :  0 
r  h  val  id  :  ty  ^  [id\>[[var:sig pgiy)^[it\>con])]  :  Sig 

r  h  typdesc  ^  sig  :  Sig 
r  h  type  typdesc  ^  sig  :  Sig 

T  \-  ty  con  :  0 
r  h  exception  id  of  ty  ^ 

[z(/i>[mki>con— >Any, kmoAny^con]]  :  Sig 


(258) 

(259) 

(260) 


r  h  exception  id  ^  [z(/i>[mki>Any,  kmoAny^Unit]]  :  Sig 


(261) 


r  h  datbind  ^  mod  :  sig 
r  h  datatype  datbind  ^  sig  :  Sig 


(262) 
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(263) 


r  h  sigexp  ^  sig  :  Sig 

r  h  structure  strid  :  sigexp  ^  [strid\>sig]  :  Sig 

r  h  sigexp  ^  sig  :  Sig 
var  ^  bound(r) 

T ^  stride var: sig  h  sigexp'  ^  sig'  :  Sig  (264) 

r  h  functor /wnz'd  (strid  :  sigexp)  :  sigexp'^ 
[strid\>[var:sig^sig')]  :  Sig 

r  h  sigexp  ^  sig  :  Sig 

r  h  include  sigexp  ^  sig  :  Sig 

r  h  spec^  ^  [sdecsi]  :  Sig  F,  sdecs  h  spec2  ^  [sdecs2]  :  Sig 

r  h  [sdecsi^  sdecs2]  :  Sig 
r  h  spec^  spec2  ^  [sdecsi^  sdecs2]  :  Sig 

Rule  266:  We  disallow  redeclaring  EL  identifiers  in  a  signature.  In  the 
presence  of  include,  we  cannot  syntactically  restrict  the  EL  to  guarantee 
the  syntactic  concatenation  of  sdecsi  and  sdecs2  will  be  well-formed — hence 
we  check  here. 


r  h  spec  ^  sig  :  Sig 
var  ^  bound(r) 

r,  var:sig  big  longid^  ^  Iblsi  :  knd 
r,  var:sig  big  longid2  ^  lbls2  '■  knd 
r,  var-.sig  b  var.lblsi  =  var.lbls'^  :  knd 
r,  var-.sig  b  var.lbls2  =  var.lbls'2  :  knd 
sig  bh  Ibls'^  :=  lbls'2  :  knd  ^  sig'  :  Sig 
<  or 

^sig  bh  lbls'2  Ibls'i  ■  knd  ^  sig'  :  Sig 
r  b  spec  sharing  type  longid^  =  longid2  ^  ■ 

Rule  267:  A  type  component  in  a  signature  is  considered  abstract,  and  hence 
eligible  to  appear  in  a  sharing  constraint,  if  it  is  equivalent  to  an  opaque  type 
(type  component  that  is  not  a  type  abbreviation)  in  the  signature. 

Here  we  “guess”  the  two  opaque  types  to  which  the  given  components  are 
equivalent,  and  patch  the  signature  such  that  the  opaque  type  with  the 
smaller  scope  becomes  a  type  abbreviation  for  the  other  opaque  type. 
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r  h  sigexp  ^  sig  :  Sig 


Signature  Expressions 


r  h  .spec  ^  .sig  :  Sig 
r  h  sig  .spec  end  ^  .sig  :  Sig 

(268) 

r  btx  sigid  ^  .sig  :  Sig 
r  h  .sigid  ^  .sig  :  Sig 

(269) 

var,  vari,  ■  ■  ■  ,  varn  ^  bound(r) 

r  h  sigexp  ^  sig  :  Sig 

r(,  tyvari\>vari\Vl,  •  •  •  ,  tyvar^\>varn\Vl)  \-  ty  ^  con  :  0 
r,  vav.sig  longtycon  ^  Ibis  :  (0”  0 

V^vav.sig  h  var.lbls  =  var. Ibis'  :  (0”  ^)0 
•5*5  Ibis'  :=  (A  (uari,  •  •  •  ,  varn).)con  :  (0”  ^ )  0  ^  :  Sig 

r  h  sigexp  where  type  {(tyvari ,  ■  ■  ■  ,tyvar^))  longtycon  =  ty  ^  sig'  :  Sig 

(270) 


Rule  270:  This  rule  uses  ambient  scope  for  the  EL  type  expression  ty. 


var,  vari,  •  •  •  ,  vavn  ^  bound(r) 
r  h  sigexp  ^  sig  :  Sig 

r,  lbr\>var:sig{,  tyvar^\>vari:n,  •  •  •  ,  tyvar ,^\>var n\Vl)  \-  ty  ^  con  :  0 
r,  vav.sig  big  longtycon  ^  Ibis  :  (0”  0 

V,var\.sig  h  var.lbls  =  var.lbls'  :  (0”  ^)0 
sz'y  bvt  Ibis'  :=  (A  (uari,  •  •  •  ,  varn).)con  :  (0”  ^ )  0  ^  sz'y  '  :  Sig 
r,  var:sig  h  sz'y'  =  sz'y"  :  Sig 

_ r  h  sig"  :  Sig _ 

r  h  sigexp  where  type  {(tyvar^,  ■  ■  ■  ,tyvar,^))  longtycon  =  own  ty  ^  .sig'  :  Sig 

(271) 


Rule  271:  This  rule  patches  signatures  using  internal  scope  for  the  type 
expression  ty.  As  such,  it  may  require  reordering  the  signature  components 
in  order  to  satisfy  scoping  requirements. 
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r  h  topdec  ^  thnds  :  tdecs 


Top  Level 


r  h  sigexp^  ^  sig^  :  Sig  (•  •  •  F  h  sigexp,^  ^  sig^  :  Sig) 
r  h  signature  sigid^  =  sigexp^  (and  •  •  •  and  sigid,^  =  sigexp^)  ^ 
sigid^>sig^{,  •  •  •  ,  sigid^>sig^)  : 
sigid^>S\g=sig^{,  •  •  •  ,  sigid^>S\g=sig^) 


(272) 


r  h  strbind  ^  [sbnds]  :  [sdecs] 
r  h  structure  strbind  ^  sbnds  :  sdecs 


(273) 


r  h  funbind  ^  [sbnds]  :  [sdecs] 
r  h  fnnctoT  funbind  ^  sbnds  :  sdecs 


(274) 


r  h  topdeci  ^  tbndsi  :  tdecsi  F,  tdecsi  h  topdec2  ^  tbnds2  '■  tdecs2 

F  h  tdecsi,  tdecs2  ok 

F  h  topdec^  topdec2  ^  tbndsi,  tbnds2  :  tdecsi,  tdecs2 

(275) 


Rule  275:  We  check  that  there  are  no  duplicate  dehnitions  at  the  top  level. 


Type  Expressions 


T  \-  ty  ^  con  :  0 


F  h  tyvar  ^  tyvar  :  0 


(276) 


F  h  ty^  coni  ■  ^  •  •  •  F  h  ty^  ^  con„  :  0 

F  h  {labi :  ty^,  •  •  •  ,  labn  '■  ty^y  ^  {/a^iocoui,  •  •  •  ,  labn>conn}  ■  0 


(277) 


F  ktx  longtycon  ^  path  :  (0”  )  ft 


(F  h  tyi  coni  ■  f 

■  V  f  ty^-^  conn  :  ft) 

(278) 

F  h  {{ty^ ,  ■■■  ,tyj)  longtycon 

^  path{{coni,  •  •  •  ,  conn))  '■  ft 

V  \-  ty  ^  con  :  ft 

T  \-  ty'  con'  :  ft 

(279) 

V  f  ty  ->  ty' 

^  con^con'  :  ft 

Rule  279:  There  is  no  way  to  directly  denote  a  total  (— )>)  type  in  the  external 
language. 
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Type  Definitions 


r  h  tyhind  [sbnds]  :  [sdecs] 


(uari,  •  •  •  ,  vavn  ^  bound(r)) 
r,  {tyvar^\>vari:ft^  •  •  •  ,  tyvar^\>varn-ft)  \~  ty  con'  :  0 
con  :=  (A  (vari,  •  •  •  ,  varn).)con 
((r  h  tybind  ^  [sbnds]  :  [sdecs]))  ((ear  ^  FVsdecs)) 

r  h  {(tyvar^ ,  •  •  •  ,  tyvar^))  tycon  =  ty  ((and  tybind))  ^ 
[tycon\>var=con{{^  sbnds))]  : 

[tycon^vardft""  )  0=con((,  sdecs))] 


(280) 


Type  Descriptions 


r  h  typdesc  ^  [sdecs]  :  Sig 


((r  h  typdesc  ^  [sdecs]  :  Sig)) 
r  h  type  {(tyvar^^  •  •  •  ,  tyvar^))  id  ((  and  typdesc))  ^ 
[zdi>(0"'  ^  )  0((,  sdecs))]  :  Sig 


(281) 


(eari,  •  •  •  ,  vavn  ^  bound(r)) 
r,  {tyvari\>vari:ft^  •  •  •  ,  tyvar^\>varn\Vl)  \-  ty  ^  con'  :  0 
con  :=  (A  (eari,  •  •  •  ,  varn).)con 
((r  h  typdesc  ^  [sdecs]  :  Sig))  {{var  ^  FVsdecs)) 

F  h  type  {(tyvar^^  •  •  •  ,  tyvar^))  id  =  ty  ((  and  typdesc))  ^ 
[zdi>(0"'  ^  )  0=con((,  sdecs))]  :  Sig 


(282) 
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Datatype  Definitions 

To  make  the  definition  somewhat  manageable,  we  define  the  necessary  many 
types  and  expressions  in  steps: 

•  tyvar\,  •  •  •  ,  tyvavj^  is  the  union  of  the  explicit  type  variables  scoped  in 
any  of  the  datatype  definitions; 

■tin 

•  con®*""  is  roughly  the  sum  type  representing  the  datatype,  with 

free  variables  •  •  •  ,  representing  the  type  variables  due  to 

polymorphism,  and  varf  \  •  •  •  ,  car*  representing  the  final  implementa¬ 
tion  types  for  the  datatypes. 

•  The  implementation  type  for  the  datatype  is  jdi  [con“^^],  which  still 

j_  •  poly  poly  c 

contains  var\  ,  •  •  • ,  var^  tree. 

•  (appearing  in  the  translation)  is  a  constructor  mapping  a  tuple 
of  types  (the  polymorphic  instantiation  types)  to  a  tuple  of  types  (the 
datatype  implementations). 

•  conf  is  the  implementation  of  the  datatype  with  respect  to  a  struc¬ 
ture  of  types  var-poiy. 

•  con''^  is  the  domain  of  the  constructor  z'djj,  if  the  constructor  carries  a 
value. 

•  exp™^  is  the  translation  of  the  constructor  idi^,  and  con™^  is  its  type, 
which  is  always  total.  These  contain  free  variables  varpoiy  and  var^^K 

•  exp\™  is  the  translation  of  the  deconstructor  for  idiy,  and  con\™  is  its 
type.  The  type  is  partial  unless  there  is  exactly  one  constructor  in  the 
datatype.  These  contain  free  variables  varpoiy  and  var^^K 

■th 

•  expf^^^  is  the  non-destructuring  case  statement  for  the  datatype, 

and  is  its  type.  These  contain  free  variables  varpoiy  and  var^^K 


r  h  dathind  ^  mod  :  sig 
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{tyvar\,  •  •  •  ,  tyvar-j^}  =  {^tyvar\^,  •  •  •  ,  tyvar\^^}  U  •  •  •  U  {tyvar^^,  •  •  •  ,  tyvar^^^} 
sig poly  '■=  [tyvar]\>var\°^^\Q,,  •  •  •  ,  tyvarf.>varl°^^ :fl] 

sigpoiy  '■=  [tyvar^>varl°^^:fl,  •  •  •  ,  tyvarf.>varl°^^:fl, 

r'  :=  r,  Ibl poly* >var poly :sig poly ,  tyvari>var\°^^\Vl^  •  •  •  ,  tyvarf.>varl°‘^ :0,, 
tycon^>var[^ ^  0,  •  •  •  ,  tyconp\>var*^ 0 
{con'-y  :=  [varf*^ / var^i  [■■■]]■■'  [vaVp^/var^y^  [■  ■  •]]coniy)iy 
(r'  h  ty- ^  con[y  :  0),^ 

/  (  Unit  I  (  Unit  I  \ 


:=  A  [varf,  •  •  •  ,  varp*).{conl^’^ ,  •  •  •  ,  corip^’^) 
conf  :=  {var°‘'-'-  [{varpoiytyvaV]^,  •  •  •  ,  Jj/t;arfc)])#z 


\Con,-,  :  = 


[conf  ! varf]  ■  ■  ■  [conf  j varf]con'-; 


exp™^  :  = 


con™f  :  = 


A  vav.con'!-.  roll 
con*  I 


con':' conf 

IJ  I 


exp\™  :=  A  car: con *.proj  -  (unroll^- 


con*^™  :  = 


conf  ^  con'/-  if  m,-  =  1; 

0  IJ  > 

conf  ^  con'!:  otherwise. 


g^^case  ._  ^  var:{l>conf  ^vaCpoiylbl,  •  •  •  ,  mi\> conf  ^var poiylbl^ . 

\  /  rjf  Yj{  con",  .-••.con"  )  /  // -i  ii  \  r  nconf*  ,  . 

A  uar  .con^  . case  (uar^l,  •••,  uar^m^- j  ot  unroll^-  *  uar  end 

con^ase  ._  j^l[>con*^carpo;y./6/,  •  •  •  ,  mi> conf  ^var poly Ibl}^ conf  ^var poly Ibl 


rh  (tyvar'ii ,  ■  ■  ■  ,tyvari^f  tyconi=idii  oi"  r  I  •  •  •  I  ^  r 

and  •  • • and 


of  typmp 

(283) 


{tyvacp^,  ■  ■  ■  ,tyvarp^f)  tyconp=idpi  I  or  \  \ 


of  ty 


pi )  pi 
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lbl>var^^^ =X  {var{°^^  ^  •  •  •  ,  [con““],  ■  ■  ■  ^jip  [con““]), 

tycon^*\>  tycon^\>\  {var\°^^ ,  •  •  •  ,  •  •  •  , 

idii>[mk>{\varpoiy\sigpoiy.[\t>exp'^^]), 

_ ^^^{^varpoiy-.sig^^iy.[\t>exp\f\)],  •  •  •  , 

>  [mki>(  A  war  po/y  .  [it  >  ) , 

km>{\varpoiy-.sigp^iy .  ] )] , 

casei>(Auarpo;y:sz5+;y.[iti>ea;p‘['""®])] 

tyconp*>  tycoriy^X  •  •  •  , 

z(/pi  >  [mki>  [Xvarpoiy-.sigp^iy.  [it>exp’^^] ) , 

_ km>(At;arpo;y:sz5p„;y.[it>ea;p^”])],  •  •  •  , 

idp^^>[mk>{Xvarp„iy:sigp^iy.[it>exp^^J), 
kin>{Xvarpoiy:sigy^iy .  [it>  ea;p^”J)] , 
Ccise>{Xvarpoiy :  sig^^iy .  [iti>  )] 

tj/con^*i>  |^tj/con^i>0^  ^  0 

\  /  »o/y  polvx  /  nil  w  poly 

=X[var\  ,  •  •  •  ,  i;ar^  ,• 

z(/i  1  >  [mki>  {{varpoiy-.sigy^iy)^  [it  >  ) , 

_ ^^^{{varpoiy\sigy^iy)^[it\>con\^])],  •  •  •  , 

idi^^\>[mk\>{{varpoiy\sigy^iy)^[it\>con^^^]), 
km>{{varpoiy\sigp„iy)^[it\>con\^^])] 
casei>(Auarpo;y:sz5+;y.[iti>con‘['""®])] 

tyconyt>\tycon]^i>kl^  ^  0 

=A  •  •  •  ,  varl°‘^).{var'^‘‘  [(uarf"^^,  •  •  •  , 

z(/pi  >  [mk>  ( ( war  po/y :  ^  [it  >  ) , 

_ km>((t;arpo;p:sz5p„;y)^[it>con^”])],  •  •  •  , 

>  [mk>  ( ( uarpo/p :  ^  [it>  con”J[  J ) , 

kin>{{var  poly-,  sig  p^iy)  ^[it>  con^^^])] 

casei>  ( Auarpo/p :  52^+ .  [iti>  )] 
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8.6  Pattern  Compilation 


Patterns 


r  h  pat  exp  :  con 


exp'  ^  [sdecs]  :  [sbnds] 


The  judgment  should  be  read  as  “the  bindings  of  the  result  of  matching  exp  to 
the  pattern  pat  are  [sdecs\  :  [sbnds];  if  the  pattern  match  fails  for  any  reason, 
then  exp'  is  evaluated.”  In  practice,  exp'  is  either  fail  or  raise  6as*s. Bind. 


r  ititx  id  94  or  r  id  ^  path  :  con' 
var  ^  bound(r) 

r  h  id  d=  exp  :  con  \  exp'  ^  [id\>var=exp]  :  [id\>var\con\ 


(284) 


Rule  284:  Pattern  match  against  an  identiher  that  is  not  a  constructor.  (The 
premise  is  equivalent  to  “rules  289  and  291  do  not  apply”.) 


Ibl  fresh  var  ^  bound(r) 
type(scon)  =  con  T  h  exp'  :  Unit 
r  h  scon  4=  exp  :  con  \  exp'  ^ 

[lbl\>var=\^  exp= con  scon  then  {}  e\se  exp']  :  [lbl\>  var :\Jn\t] 

Rule  285:  Pattern  match  against  a  constant.  We  need  primitive  equality 
functions  for  constants  which  can  appear  in  patterns. 


(285) 


Ibl  fresh  var  ^  bound(r) 
r  h  _  4=  exp  :  con  \  exp'  ^  [lbl\>var=exp]  :  [lbl\>var\con] 

Rule  286:  Pattern  match  against  a  wildcard. 


(286) 


V  \-  ty  ^  con'  :  0  F  h  con  =  con'  :  0 
r  h  pat  4=  exp  :  con  \  exp'  ^  mod  :  sig 
r  h  pat  :  ty  4=  exp  :  con  \  exp'  ^  mod  :  sig 

Rule  287:  Pattern  match  against  an  explicitly-typed  pattern. 


(287) 


7f 


r  longid  ^  path  :  [mk>con'^con'\]<.m>con"^con'] 
r  h  con  =  con"  :  0  F  h  exp'  :  con' 
r  h  pat  catch  (pat/i.km  ea;p)  with  exp'  :  con'  \  exp'  ^  mod  :  sig 
r  h  exp'  ea;p  :  con  \  longid  pat  ^  mod  :  sig 


(288) 


Rule  288:  Pattern  match  against  a  monomorphic  (datatype  or  exception) 
constructor  which  carries  a  value. 


r  ktx  longid  ^  path  :  [mki>conink,  kmi>con"^Unit] 
r  h  con  =  con"  :  0  F  h  exp'  :  Unit 
Ibl  fresh  var  ^  bound(F) 

F  h  longid  d=  exp  :  con  \  exp'  ^ 

[lbl\>var=catch  path.km  exp  \N\th  exp']  :  [lbl\> var :\Jn\t] 


(289) 


Rule  289:  Pattern  match  against  a  constant,  monomorphic  (datatype  or 
exception)  constructor. 


F  ktx  longid  ^  path  :  [mki>sz5j^[^,  kmi>sz5[^j^] 

F  h  sig]^^  <  [sig' con' ^ con"])  :  Sig 
F  h  sig^\^  <  [sig' con" ^ con'])  :  Sig 
F  h  con  =  con"  :  0 
F  h  ea;p'  :  con" 

F  h  var'  ]  sig' 

F  h  pat  d=  catch  ((path.km  war'). it)  ea;pwith  ea;p'  |  exp'  ^  mod  :  stp 
F  h  longid  pat  d=  ea;p  :  con  \  exp'  ^  mod  :  stp 

(290) 


Rule  290:  Pattern  match  against  a  polymorphic  datatype  constructor  carry¬ 
ing  a  value. 
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r  longid  ^  path  : 

r  h  sigy^^  <  (sz5''^[iti>con"^Unit])  :  Sig 

r  h  sig^y^  <  {sig' con"])  :  Sig 
r  h  con  =  con"  :  0 
r  h  exp'  :  Unit 
r  h  var'  I  sig' 

r  h  longid  exp  :  con  \  exp'  ^ 

[lbl\>var:catch  {{path.km  var').it)  exp\N\th  exp']  : 
[lbl>  var  :Un\t] 

Rule  291:  Pattern  match  against  a  constant  polymorphic  constructor. 


Ibl  fresh  var  ^  bound(r) 
r  h  con  =  {labi  ~  co^i,  •  •  •  ,  labn  ~  con^ 

[Ibl'y  ~  con'y^  •  •  •  ,  Ibl'i^  ~  con'll)}  :  0 
r ,  lbl>var\con  h  paty  var.labi  :  co^i  |  exp'  ^  [sbndsi]  :  [sdecsi] 


r ,  lbl>var\con  h  var. labn  ■  conn  \  exp'  ^  [sbndsn]  '■  [sdecsn] 

r  h  {/a^i  =  paty, .  .  .  ,  labn  =  pcitn{ ,...)}  <^  ea;p  :  con  |  ^ 

[lbl>var=exp ,  sbndsi^ .  . . ,  s6n(/s„]  : 

[lbl\>var\exp,  sdecsi, . .  .  ,  s(/ecs„] 

(292) 

Rule  292:  Pattern  match  against  a  record  of  patterns. 


Ibl  fresh  var  ^  bound(r) 
r  h  paty  d=  var  :  con  \  exp'  ^  [.sbndsi]  :  [sdecsi] 

r  h  pat2  d=  var  :  con  \  exp'  ^  [.sbnds2]  '■  [sdecs2 

r  h  paty  as  pat2  d=  exp  :  con  \  exp'  ^ 

[lbl\>var=exp ,  .sbndsi,  .sbnds2]  :  [/6/i>car:ea;p,  sdecsi,  sdecs2] 

Rule  293:  Pattern  match  against  two  patterns  simultaneously. 


r  h  pat  d=  get  exp  :  con  \  exp'  ^  mod  :  sig 
r  h  ref  pat  d=  exp  :  con  Ref  |  exp'  ^  mod  :  sig 
Rule  294:  Pattern  match  involving  implicit  dereferencing  of  a  ref  cell. 


(294) 
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8.7  Lookup  Rules 


The  lookup  rules  specify  the  order  in  which  translation  contexts  and  IL  sig¬ 
natures  are  searched. 


•  To  prevent  an  explosion  of  rules,  the  metavariable  0  is  used  to  denote 
a  type,  signature,  or  kind  as  appropriate. 

•  Any  IL  structure  label  starred  with  an  asterisk  (e.g.,  Ibl*)  is  treated 
specially  by  the  lookup,  which  checks  inside  the  structure.  That  is, 
when  looking  for  an  identiher  in  a  context,  we  also  look  inside  starred 
structure  declarations.  If  the  identiher  is  found  inside  such  a  structure, 
the  full  path  to  the  identiher  through  the  open  structure  is  returned. 

•  The  lookup  of  signatures  in  a  context  is  treated  specially  by  returning 
the  signature  rather  than  the  path  to  the  signature. 

•  Any  type  or  signature  returned  by  a  lookup  will  be  valid  with  respect 
to  the  ambient  context. 


Contexts 


r  lytx  Ibis  ^  path  / sig  :  0 


Main  rules  for  looking  up  identifiers  in  a  translation  context. 


r  htx  Ibis  ^  path 

r  h  path  :  con 

r  htx  Ibis  ^ 

path  :  con 

1  ) 

r  htx  Ibis  ^  path 

r  h  path  :  knd 

r  htx  Ibis  ^ 

path  :  knd 

r  htx  Ibis  ^  path 

r  h  path  :  sig 

tfQTl 

r  htx  Ibis  ^ 

path  :  sig 

r  htx  Ibis  ^  sig 

r  h  sig  :  Sig 

tdQSl 

r  htx  Ibis  ^  sig  :  Sig 
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r  h^tx  Ibis  ^  path! sig 


“Utility”  rules  used  to  look  up  identifiers  in  a  translation  context. 


Ibl  =  Ibl' 

(299) 

V 

o 

C2 

Ibl  ^  Ibl'  r  Ibl'  path 

(300) 

r,  lbl>var:con  i^tx  Ibl  ^  path 

Ibl  =  Ibl' 

(301) 

T ^  lbl\>var:knd{=con)  i^tx  Ibl'  ^  var 

Ibl  ^  Ibl'  r  i^tx  Ibl'  path 

(302) 

r,  lblt>var\knd{= con)  i^tx  Ibl'  ^  path 

Ibl  =  Ibl' 

r,  lbl>var:sig  i^tx  Ibl'  ^  var 

(303) 

Ibl  ^  Ibl'  r  i^tx  Ibl'  path 

(304) 

r,  lbl>var:sig  i^tx  Ibl'  ^  path 

sig  Ibl'  path 

(305) 

r,  lbl*\>var\sig  i^tx  Ibl'  ^  var  .path 

sig  Ibl'  r  i^tx  Ibl'  ^  path 

(306) 

r,  lbr>var:sig  i^tx  Ibl'  ^  path 

Ibl  =  Ibl' 

(307) 

r,  lbl\>var:S\g=sig  i^tx  Ibl'  ^  sig 

Ibl  ^  Ibl'  r  i^tx  Ibl'  path 

(308) 

r,  lbl>var:S\g=sig  i^tx  Ibl'  ^  path 

'  hitx  Ibl  path  .sig  i^ig  Ibis  ^  Ibis' 

(309) 

r  i^tx  Ibl. Ibis  ^  path. Ibis' 
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Signatures 


T^path'.sig  f^ig  Ibis  Ibis'  :  0 


Main  rules  for  looking  up  identifiers  in  a  signature. 


r  h  path  :  sig  sig  Ibis  ^  Ibis'  T  h  path. Ibis'  :  con 
V ^  path'.sig  Ibis  ^  Ibis'  :  con 


(310) 


r  h  path  :  .sig  .sig  i^ig  Ibis  ^  Ibis'  T  h  path. Ibis'  :  sig' 
r,  path:sig  i^ig  Ibis  ^  Ibis'  :  sig' 


(311) 


r  h  path  :  sig  sig  i^ig  Ibis  ^  Ibis'  T  h  path. Ibis'  :  knd 
T ^  path'.sig  i^ig  Ibis  ^  Ibis'  :  knd 


(312) 


sig  )^ig  this  ^  Ihls 


“Utility”  rules  used  to  look  up  identifiers  in  a  signature. 


Ibl  =  Ibl' 

[sdecs^  lbl\>var:con]  i^ig  Ibl'  ^  Ibl 

Ibl  +  Ibl'  [sdecs]  bg  Ibl'  Ibis 
[sdecs,  lbl>var:con]  i^ig  Ibl'  ^  Ibis 

Ibl  =  Ibl' 

[sdecs^  lbl\>var:knd{=con)]  i^ig  Ibl'  ^  Ibl 

Ibl  +  Ibl'  [sdecs]  bg  Ibl'  Ibis 
[sdecs ^  lbl\>var:knd{= con)]  i^ig  Ibl'  ^  Ibis 

Ibl  =  Ibl' 

[sdecs,  lbl>var:sig]  i^ig  Ibl'  ^  Ibl 

Ibl  +  Ibl'  [sdecs]  bg  Ibl'  Ibis 
[sdecs,  lbl\>var:sig]  i^ig  Ibl'  ^  Ibis 


(313) 

(314) 

(315) 

(316) 

(317) 

(318) 
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(319) 


sig  IbV  Ibis 

[sdecs,  lbr>var:sig]  Ibl'  ^  Ibl* .Ibis 

sig  i^ig  Ibl'  [sdecs]  i^ig  Ibl'  ^  Ibis 

[sdecs,  lbr>var:sig]  i^ig  Ibl'  ^  Ibis 

sig  h)tx  Ibl  Ibis'  :  sig'  sig'  i^ig  path  ^  Ibis" 
sig  i^ig  Ibl. Ibis  ^  Ibis'. Ibis" 


(320) 

(321) 
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8.8  Coercions 


Matching  Coercions 


This  judgment  should  be  read  as  “the  coercion  functor  that  copies  the 
components  appearing  in  stg  from  a  structure  matching  signature  stg^  is 
[\[var o'.stg q) .mod)  and  has  signature  {{varo'.sigQ)^sig')',  this  signature  max¬ 
imizes  type  propagation.” 


decs  ^ub  stgQ  <  stg  ^ 
{Xvaro'.sigQ.mod)  : 
{{varo:stgQ)^stg') 


decs  sigQ  ^  ^  {Xvaro:sigQ.[])  :  {{varo:sigQ)^[]) 

Rule  322:  Coercion  to  forget  all  components. 


(322) 


decs,  varo'.sigQ  Ibl  ^  Ibis  :  con' 
decs  h  con  =  con'  :  0 
decs,  vav.con  si-do  —  [sdecs]  ^ 

[Xvaro:sigQ.[sbnds])  :  [[varo:sigQ)^[sdecs']) 

decs  sigo  ^  [lbl\>var:con,  sdecs]  ^ 

[Xvaro:sigQ.[lbl\>var=varo.lbls,  sbnds])  : 
[[varo:sigQ)^[lbl\>var:con,  sdecs']) 


(323) 


Rule  323:  Coercion  of  a  monomorphic  value  specihcation  to  a  monomorphic 
value  specihcation. 
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decs,  varo'.sigQ  Ibl  ^  Ibis  :  sig 
<  or 

decs,  varo'.sigQ  Ibl  ^  Ibis  :  [mlosz^, 

decs  h  sig  <  [sig ^[it> con])  :  Sig 
decs,  vari'.sig^  h  var-poiy  |  sig^^iy 
decs,  var\[[vari\.sig con\)  i^ub  sig^  ^  [sdec.s]  ^ 
[\varo\.sigQ.[.sbnd.s])  :  [[varo'.sigQ)^[sdecs']) 


decs  i^ub  si-do  —  [lbl>var'.[[vari'.sig^)^[it\>con]),  sdecs]  ^ 

varo-lbls  1 

[\varo'.sigo.[lbl>var=[\vari:sig^.<  or  >  varpoiy),  sbnds])  : 

varo-lbls  .mk  J 

[[varo:sigo)^[lbl>var:[[vari:sigi)^[it>con]),  sdecs']) 

(324) 


Rule  324:  Coercion  of  a  polymorphic  value  specification  to  a  polymorphic 
value  specihcation;  this  may  involve  implicit  polymorphic  instantiation.  (The 
rule  also  handles  matching  polymorphic  datatype  and  exception  constructors 
with  value  specihcations.) 


or 

decs,  varo'.sigQ  i^ig  Ibl  ^  Ibis  :  km  ~  sig^^^] 

decs  h  sig  <  [sig ^[it> con'])  :  Sig 
decs  h  con  =  con'  :  0 
decs,  vari'.sig^  h  varpoiy  i  sigpgiy 
decs,  var'.con  i^ub  sigo  ^  [sdecs]  ^ 

[Xvaro'.sigQ.[.sbnd.s])  :  [[varo'.sigQ)^[.sdec.s']) 

-K  \lbl\>var:r:on.  sdee.s] 

(  varo-lbls 

or  ^  varpoiy). it),  sbnds])  '- 


decs  i^ub  sigo  ^  [lbl\> var'.con,  sdecs] 

[Xvaro'.sigQ.[lbl\>var=[Xvari'..sig^.[ 
[[varo:sigo)^[lbl>var:con,  sdecs']) 


[  var'o-lbls .mkj 


(325) 


Rule  325:  Coercion  of  a  polymorphic  value  (or  datatype  constructor)  to 
match  a  monomorphic  value  specihcation. 


79 


decs,  varo'-sig^  Ibl  ^  Ibis  :  knd 
[decs,  varo'.sigQ  h  varo.lbls  =  con  :  knd) 
decs,  var:knd=varo.lbls  si-do  —  [sdecs]  ^ 

[Xvaro:sigQ.[sbnds])  :  [[varo:sigQ)^[sdecs']) 
decs  sigo  ^  [lbl\>var:knd{=con),  sdecs]  ^ 
[Xvaro:sigQ.[lbl\>var=varo.lbls,  sbnds])  : 
{{varo:sigQ)^[lbl>var:knd=varo.lbls,  sdecs']) 


(326) 


Rule  326:  Coercion  of  a  type  component  to  a  type  component  exposing  less 
or  equal  information. 


decs,  varo'-sigQ  Ibl  ^  Ibis  :  sig^ 
decs  i^ub  sigi  ^  sig  ^  [Xvar i.sig ^.mod)  :  [i^vari.sig ^)^sig") 
decs,  vav.sig  i^ub  sig^  ^  [sdecs]  ^ 

{Xvaro'-sigQ.[sbnds])  :  [[varo:sigQ)^[sdecs']) 


decs  i^ub  sigo  ^  [lbl\>var:sig ,  sdecs]  ^ 

[Xvaro:sigQ.[lbl\>var=[Xvari:sig^.mod)  varo.lbls,  sbnds])  : 
{{varo:sigQ)^[lbl>var:sig" ,  sdecs']) 


(327) 


Rule  327:  Coercion  of  a  module  component. 


decs  i^ub  sig^  ^  [sdecs"]  ^  [Xvaro'.sigQ.mod)  :  {{^varo'.sigQ)^sig') 
decs,  vav.sig  i^ub  sigo  ^  [sdecs]  ^ 

[Xvaro:sigQ.[sbnds])  :  [[varo:sigQ)^[sdecs']) 

decs  i^ub  sigo  ^  [Ibl* \>var:[sdecs"],  sdecs]  ^ 
[Xvaro:sigQ.[lbr\>var=mod,  sbnds])  : 
[[varo:sigQ)^[lbr\>var:sig' ,  sdecs']) 


(328) 


Rule  328:  Coercion  to  a  starred  substructure — this  structure  need  not  actu¬ 
ally  exist  in  the  original  structure,  just  the  components. 
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decs  sig2  ^  ^  mods  '■  sig^ 

decs  i^ub  si-9'1  —  '^*52  ^  mod4  :  sig^ 

decs,  varo:[vari:sig^^sig[),  vars'-sigs  1“  mod^  [varo  [mods  vars))  '■  sig 
decs  i^ub  {vari'.sig ^^sig[)  ^  [var 2- sig 2^ sig 2)  ^ 

[Xvaro:[vari:sig^^sig[).[Xvar2:sig2-mod4  [varo  [mods  vars))))  '■ 
[[varo'-[vari\sigi^sig'^))^[var2'-sig2^sig)) 

(329) 


decs  i^ub  sig2  ^  sigi  ^  mods  '■  sigs 
decs  i^ub  sig[  ^  sig2  ^  mod4  :  sig4 

decs,  varo:[vari:sig^^sig[),  var2'-sig2  1“  mod4  [varo  [mods  vars))  '■  sig 
decs  i^ub  [vari:sig4^sig[)  ^  [vars'-sig 2^ sig2)  ^ 

[Xvaro'-[vari\sig^^sig'^).[Xvar2'-sig2-mod4  [varo  [mods  vars))))  '■ 
[[varo'-[vari\sig^^sig'^))^[var2'-sig2^sig)) 

(330) 


Rules  329,  330:  Coercions  for  functor  subtyping.  By  the  IL  subtyping  rules, 
we  can  use  Rule  329  to  coerce  a  total  functor  to  a  partial  functor. 
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8.9  Signature  Patching 
where  type 

This  judgment  should  be  read  “By  adding  to  the  signature  stg  the  fact  that 
the  (abstract)  type  component  selected  by  Ihls  is  equal  to  con  :  knd,  we  get 
the  signature  stg'  ^ 


sig  h^t  Ibis  :=  con  :  knd  ^  sig'  :  Sig 


FV(con)  n  bound (s(/ecs)  =  0 
sig  =  [sdecs^lhlt>var\knd^sdecs'\ 
sig  bvt  Ibl  :=  con  :  knd  ^  [sdecs^  lbl\>var:knd=con^  sdecs']  :  Sig 

FV(cou)  n  bound(sdecs)  =  0 
sig  =  [sdecs^  lbl\>var:sig' ^  sdecs'] 
sig'  bvt  Ibis  :=  con  :  knd  ^  sig"  :  Sig 
sig  bvt  Ibl. Ibis  :=  con  :  knd  ^  [sdecs,  lbl>var:sig" ,  sdecs']  :  Sig 


sharing 

This  judgment  should  be  read  “By  adding  to  the  signature  stg  the  fact  that 
the  (abstract)  type  components  of  kind  knd  selected  by  Iblsi  and  lbls2  are 
equal,  we  get  the  signature  stg' 


sig  fill  Iblsi  :=  Ibls^  :  knd  ^  sig'  :  Sig 


(331) 


(332) 


sig  =  [sdecs,  lbl'\>var'\knd,  sdecs' ^  lbl>var:knd ^  sdecs"] 
sig  bh  Ibl  :=  Ibl'  :  knd  ^ 

[sdecs,  lbl'\>var'\knd,  sdecs'^  lbl>var\knd=var' ^  sdecs']  :  Sig 


(333) 


sig  =  [sdecs,  lbl'\>var'\knd,  sdecs' ^  lbl>var:sig ,  sdecs"] 
sig  bvt  Ibis  :=  var'  :  knd  ^  sig'  :  Sig 
sig  bh  Ibl. Ibis  :=  Ibl'  :  knd  ^ 

[sdecs,  lbl'>var':knd^  sdecs',  lbl>var:sig' ,  sdecs']  :  Sig 


(334) 


sig  =  [sdecs,  lbl'>var':sig' ,  sdecs' ,  lbl>var:sig'' ,  sdecs"] 
sig"  bvt  Ibis'  :=  var' .Ibis'  :  knd  ^  sig'"  :  Sig 

sig  bh  Ibl. Ibis  :=  Ibl' .Ibis'  :  knd  ^ 

[sdecs ,  Ibl' >var' -.sig' ,  sdecs' ,  lbl>var\sig''' ,  sdecs"]  :  Sig 


(335) 
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(336) 


sig  =  [sdecs,lbl\>var\sig\  sdecs'] 
sig'  ibis  :=  Ibis'  :  knd  ^  sig"  :  Sig 
sig  Ibl.lbls  :=  Ibl. Ibis'  :  knd  ^  [sdecs,  lbl>var:sig'' ,  sdecs']  :  Sig 
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9  Conjectures 

1.  [Type  Preservation  under  Evaluation]. 

If  h  tbnds  :  tdecs  and  h  tbnds  JJ-  A,  cr,  VALU  then  A  h 

tbnds'  :  tdecs. 

2.  [Canonical  Forms]. 


If  a  value  has  type/sig... 

then  it  is  of  the  form... 

coni^con2 

iwfbnds^  var' ={var\coni)ep- exp ,  fbnels'  in  var'  end 

coni^con2 

i\x  finds,  var' ={var\coni)\-P- exp ,  finds'  in  var'  end 

{lbli\>coni^  •  •  •  ,  lbln>conn} 

{lbli\>exp^^,  ■  ■  ■  ,  lbln>exp,fi 

■  -Sf  con  1  .•••.conn) 

L  (coni,  •  •  •  ?  corinj 

inj  w  '  exp,, 

Any 

tSg'name 

con  Ref 

loc 

base  type 

scon 

[sdecs] 

[sbndsy] 

[var:sig^sig') 

[Xvar:sig.mod) 

[var:sig^sig') 

[Xvar:sig.mod) 

3.  [Progress  under  Evaluation].  Well-typed  IL  programs  never  get 
“stuck”  during  evaluation. 

4.  [Determinacy  of  Evaluation].  If  h  tbnds  JJ-  A,  cr,  VALUES(t6nds) 

and  •  h  tbnds  JJ-  A',  cr',  VALU  ES(t6nds^)  then  A,  cr,  tbnds  =  A',  cr',  tbnd.s' 
up  to  renaming  of  exception  names  and  locations  bound  in  A  and  A'. 

5.  [Translation  Result  is  Well-Typed].  If  lbr>basis-.sigj^^^^^  h  topdec  ^  tbnds  :  tdecs 
then  basis:sigf^^g-g  h  tbnds  :  tdecs. 

6.  [Translation  Preserves  Types].  Under  an  appropriate  correspon¬ 
dence  between  EL  and  IL  types/signatures/kinds,  the  translation  pre¬ 
serves  this. 
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